Copy  2  4  of  50  copies 


ft 


RIA-80-U790 


AO-Aofo  I'i'j 


IDA  PAPER  P-1418 

A  MODEL  FOR 

THE  ANALYSIS  OF  STOCKPILE/PRODUCTION 

BASE  TRADEOFFS 


a 

{>» 

00 

o' 


Jeffrey  H.  Grotte 
p0  Paul  F.  McCoy 


March  1979 


<0 


Prepared  for 

Office  of  the  Under  Secretary  of  Defense  for  Research  and  Engineering 


DISTRIBUTION  STATEMENT  A 

Approved  for  public  release; 
Distribution  Unlimited 


I  DA 


INSTITUTE  FOR  DEFENSE  ANALYSES 
PROGRAM  ANALYSIS  DIVISION 


rv 


>  ^ 


IDA  log  No.  HQ  79-21352 


UNCLASSIFIED 


REPORT  DOCUMENTATION  PAGE  |  befor^compuetingVorm 

t.  «£PO«T  numSCA 

2  GOVT  ACCESSION  nO 

J  REC.PiEn  T*s  CAT  al.0C  numIER 

A.  TITLE  fmnd  Subtitle) 

A  MODEL  FOR  THE  ANALYSIS  OF  STOCKPILE/PRODUCTION 
BASE  TRADEOFFS 

s  Ty«[  o '  RCR  ornr  k  PERIOD  COvERCO 

FINAL 

«  RER'ORminG  ORG  RERORT  number 

IDA  PAPER  P-1418 

7  AUTHOR*, 

Jeffrey  H.  Grotte,  Paul  F.  McCoy 

«  contract  or  grant  HuuacR'n 

MDA903  79  C  0018 

9  PCRrORMiNG  ORGANIZATION  NAME  AnO  AOORCSS 

Institute  for  Defense  Analyses 

400  Army-Navy  Drive 

Arlington,  V A  22202 

»0  RROGR  Am  ElEmEn  r  RROJCC  ”  task 

AREA  A  WORK  UNIT  NUMBERS 

DIM0  TASK  T-8-037 

11  .  CON  TROLLING  ORflCE  NAME  AnO  AOORCSS 

Director,  Land  Warfare 

Undersecretary  of  Defense  Research  &  Engineering 
The  Pentagon 

Washinaton.  DC  20301 

U  report  oate 

March  1979 

11  NUMBER  0  *  RAGES 

163 

U  MONITORING  AGENCY  name  A  aOOR  ESS/i/  Controlling  O  Itiro) 

0USDRE  (D0D-IDA  Management  Office) 

400  Army-Navy  Drive 

Arlington,  VA  22202 

UNCLASSIFIED 

IS#  OCCL  aSSi  ric  *  TiOn  00*nGRa0inG 

SCmCOULC 

l«.  DISTRIBUTION  STATEMENT  «jI  thf  Rmpott) 

Approved  for  public  release;  distribution  unlimited. 

17  OISTRIBUTION  JTATEMINT  (*(  th «  «*«r rod  orrtorod  tn  Block  20.  II  dlllotoni  Iron  Ropori) 

IB.  SURRL  emcn  tary  notes 

„  key  voros  (Co* «*Lo  >'  «««•«*  »r  •'«* 

Stockpile,  production  base,  acquisition,  tradeoffs,  ammunition,  least 
cost  mix,  wartime  consumption,  linear  programming  model,  computer 
programming. 

“  *"*  M*eeti  m^the" wartime e  materiel,  particularly 
for  ammunition,  generally  requires  a  stockpile  for  meeting  initial  needs, 

Imi  a  production  base,  for  building  the  stockpile  and  also  for  supplying 
long-term  demands  if  the  war  is  of  sufficiently  great  duration.  During 
peacetime,  stockpile  and  production  base  are  complements— enlarged^ 
production  bases  result  in  a  larger  stockpile-- but  during  wartime,  they 
are  (to  a  degree)  substitute  means  of  supplying  the  consumable. 

DD  F0WI71  1473  COITION  or  I  NOV  «*  IS  OHOLCTC 


UNCLASSI FIED 


SCCJ*ITY  CLASSIFICATION  O' 


▼  H  t  5  PAGE  Dwtm  ?.nt+r+<3t 


UN C LASS  I  FI E  D 


security  classification  of  this  PAGEf»rh*n  £m  •/•<*) 


Item  20  --  continued 

This  paper  presents  a  linear  programming  model  that  determines  the  least 
cost  mix  of  stockpile  and  production  base  necessary  to  satisfy  wartime 
consumption..  The  model  includes  a  build-up  period  during  which  production 
1S  acquired  and  the  stockpile  is  built,  a  steady-state  period  during 
which  assets  are  at  maintained  post-build-up  levels  until  the  start  of  the 
war,  and  a  mobil  ization-and-war  period  during  which  demand  for  the 
consumable  must.be  met,  either  through  stockpile  depletion  or  throuah 
wartime  production  from  previously  acquired  base. 

The  model  is  fast  running  and  allows  the  user  great  flexibility  in 
specifying  the  planning  scenario. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  of  this  PkGEfWhan  Data  Enearmd) 


IDA  PAPER  P-1418 


A  MODEL  FOR 

THE  ANALYSIS  OF  STOCKPILE /PRODUCTION 

BASE  TRADEOFFS 


Jeffrey  H.  Grotte 
Paul  F.  McCoy 


» 

March  1979 


I  DA 


INSTITUTE  FOR  DEFENSE  ANALYSES 
PROGRAM  ANALYSIS  DIVISION 
400  Army-Navy  Drive,  Arlington,  Virginia  22202 


I 


Contract  MDA903  79  C  0018 
Task  T-8-037 


ACKNOWLEDGMENTS 


This  model  evolved  to  its  present  form  under  the  influence 
of  many  persons,  both  from  IDA  and  elsewhere.  In  particular, 
we  are  grateful  to  Myron  Bruns  and  LtCol.  Michael  Higgins  of 
OUSDRE,  Salvatore  Culosi  of  MRA&L,  and  L.  Bruce  Anderson, 

Jerome  Bracken,  George  Daly  and  Douglas  Dacy  of  IDA,  and  others, 
whose  suggestions  and  opinions  have  been  incorporated  into  the 
S/PB  model. 


CONTENTS 


ACKNOWLEDGMENTS  .  iii 

I.  INTRODUCTION  .  1 

A.  Background . 1 

B.  Model  Overview  .  2 

II.  MATHEMATICAL  FORMULATION  .  5 

A.  Components .  6 

B.  Time  Periods .  9 

C.  The  Core  Model .  9 

1.  Variables .  10 

a.  Capital  Stocks .  10 

b.  Ammunition  Stockpile  .  11 

2.  Transfer  Variables  . .  11 

3.  Capital  Purchase  Variables  .  12 

4.  Structural  Equations  .  12 

a.  Cold  Equipment  Stocks .  12 

b.  Warm  Equipment  -Stocks .  13 

c.  Hot  Equipment  Stocks  .  14 

d.  Domestic  Ammunition  Stockpile  ......  l4 

e.  In-Theater  Ammunition  Stockpile  ....  15 

5.  Costs .  16 

D.  The  Stockpile/Production  Base  Model .  19 

1.  The  Build-Up  Period . 20 

a.  Purchase  of  Cold  Capital .  21 

b.  Purchase  of  Warm  Capital .  24 

c.  Feasibility  Consideration  .  28 

d.  Costs .  29 


v 


e.  Time  Delay  in  Capital  Acquisition  ....  40 

2.  The  Steady-State  Period . 4l 

a.  Steady-State  Variables  and  Equations.  .  .  41 

b.  Costs . 

3-  Mobilization/War  Period  .  47 

a.  Cold  Capital  Stocks . 47 

b.  Warm  Capital  Stocks . 50 

c.  Hot  Capital  Stocks . 51 

d.  Ammunition  Stockpile  .  52 

e.  Costs . 53 

E.  Additional  Constraints  .  56 

1.  Upper  Bounds . 56 

2.  Strategic  Constraints  .  57 

3.  Budget  Constraints  .  59 

a.  Build-Up  Period . 59 

b.  Steady-State  Period  .  60 

c.  Mobilization/War  Period  .  60 

F.  Model  Summary . 61 

III.  IMPLEMENTATION  AND  USER’S  GUIDE  .  67 

A.  Using  the  Model . 69 

B.  Sample  Run . 73 

REFERENCE . 83 

APPENDICES 

A  GLOSSARY  OF  INPUT  PARAMETERS  AND  VARIABLES 
B  STOCKPILE/PRODUCTION  BASE  MODEL  FORTRAN  LISTING 

FIGURES 

1  Schematic  of  Model . '•  8 

2  Linear  Purchase  Patterns  .  21 

3  Disallowed  Purchase  Pattern  .  22 

4  Allowable  Warm  Capital  Purchases  .  25 

vi 


5  Sample  Input  Deck . 74 

6  Sample  Problem  Output  .  75 

TABLES 

1  Cold  Capital  Accrual . 24 

2  Cold  Stocks  Contributed  by  BCL . 30 

3  Cold  Stocks  Contributed  by  ( SLPPC1-SLPNC1 )  31 

4  Resources  Contributed  by  IBW1 . 33 

5  Resources  Contributed  by  BW1  .  i . 36 

6  Resources  Contributed  by  ( SLPPW1-SLPNW1 )  38 

7  Mobilization/War  Period  Costs  .  54 


vii 


I.  INTRODUCTION 


A.  BACKGROUND 

Two  mechanisms  are  available  to  provide  a  consumable,  such 
as  ammunition,  for  a  possible  future  war: 


(1)  A  stockpile  is  generally  established  to  meet  the 


immediate  (and  usually  heavy)  demand  in  the  early  stages  of 
the  war.  Stockpiles  are  generally  very  responsive;  that  is, 
they  are  quickly  made  available,  but  unless  very  large,  they 
can  be  eventually  exhausted  if  the  war  endures  for  any  length 
of  time. 

(2)  A  production  base  for  manufacturing  the  consumable  can 
provide  for  the  requirements  of  a  protracted  war.  However, 
because  of  the  length  of  time  required  to  bring  a  production 
base  into  operation,  production  bases  are  inadequate  to  satisfy 
demand  early  in  the  war. 

It  is  therefore  generally  accepted  that  both  a  stockpile 
and  a  production  base  are  necessary  to  satisfy  wartime  require¬ 
ments — the  stockpile  for  the  early  stages  of  the  war,  the  pro¬ 
duction  base  later  on.  During  the  intermediate  stages  of  the 
war,  trade-offs  can  be  made  to  some  extent — a  larger  stockpile 
can  postpone  the  need  for  bringing  the  production  base  into 
play,  thus  permitting  a  less  reactive  and  possibly  less  costly 
base,  whereas  a  production  base  that  can  quickly  be  brought  to 
wartime  levels  of  production  can  reduce  the  size  of  the  required 
stockpile.  In  this  sense  stock  are 


partially  substitutable  during 
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During  peacetime,  however,  stockpile  and  production  base 
are  complementary.  The  larger  the  stockpile  being  established, 
the  larger  is  the  production  base  needed  to  produce  it. 

Because  of  these  relationships,  stockpile  and  production 
base  are  inextricably  linked.  One  cannot  determine  the  correct 
stockpile  size  without  considering  the  production  base  nor  can 
one  specify  the  production  base  without  accounting  for  the 
stockpile.  It  follows,  therefore,  that  if  one  wishes  to 
optimally  fix,  by  some  measure  of  effectiveness,  the  sizes  of 
the  stockpile  and  production  base  to  satisfy  the  requirements 
of  some  proj ected  war ,  one  must  consider  them  jointly  and 
balance  their  respective  features  and  costs.  Among  other  things, 
one  must  attend  to  such  attributes  as  responsiveness  to  demand, 
holding  and  production  costs,  deterioration  rates,  budget  limi¬ 
tations,  and  so  forth,  in  order  to  determine  the  best  stockpile/ 
production  base  mix. 

To  assist  in  this  determination,  this  paper  presents  the 
IDA  Stockpile/Production  Base  Model  (hereafter  the  S/PB  model), 
an  optimizing  computer  model  that  determines  the  least  costly 
combination  of  stockpile  and  production  base  required  to  meet 
a  specified  wartime  consumption  curve.  The  model  explicitly 
considers  such  parameters  as  planning  and  warning  periods, 
deterioration  rates,  cost  discounting  factors,  and  so  forth. 

Using  the  methods  of  linear  programming,  the  model  determines 
a  globally  optimal  schedule  of  production  base  purchases  and 
consumable  production.  The  model  can  also  be  used  to  find  the 
best  combination  of  two  alternative  production  bases  for  the 
same  consumable.  The  model  examines  a.  single  type  of  consum¬ 
able  at  a  time,  but  can  be  applied  to  many  different  types. 

B.  MODEL  OVERVIEW 

The  S/PB  model  is  based  on  a  simple  time  step  model  wherein 
the  variables  represent  activities  at  certain  times.  However, 
in  order  to  combine  the  peacetime  planning  period,  wherein 
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stockpile  and  production  base  are  acquired  in  an  orderly  fashion, 
with  the  wartime  period,  where  they  must  be  managed  to  deal  with 
rapidly  changing  requirements,  the  basic,  or  core,  time  step 
model  has  been  modified  to  account  for  those  separate  periods 
of  time. 

The  first  period — what  we  call  the  Build-up  period — is 
characterized  by  the  smooth  acquisition  of  assets.  Typically 
lasting  many  years,  this  period  includes  the  purchase  of  produc¬ 
tion  base  to  be  used  to  build  the  stockpile,  the  purchase  of  the 
production  base  to  be  stored  for  later,  wartime,  use,  and  the 
creation  of  the  stockpile  from  production  base  producing  at 
peacetime  rates.  Pre-existing  assets,  of  course,  are  consid¬ 
ered  in  this  period. 

We  do  not  assume  that  the  war  necessarily  begins  conveniently 
right  after  the  Build-up  period.  Although  supposing  the  war  will 
occur  is  necessary  to  establish  the  consumption  requirements, 
whether  it  actually  occurs,  and  when,  is  not  at  all  certain.  In 
order  to  address  these  types  of  uncertainties,  the  model  allows 
an  interval  of  variable  (user-specified)  length  called  the  Steady- 
state  period  which  separates  the  onset  of  the  war  from  the  con¬ 
clusion  of  the  Build-up  period.  During  the  Steady-state  period, 
resources  acquired  during  the  Build-up  period  are  maintained  at 
constant  levels.  The  long-term  peacetime  costs  of  stockpile  and 
production  base  may  be  accounted  for  during  this  period. 

The  Steady-state  period  terminates  with  the  beginning  of 
industrial  mobilization,  which  marks  the  beginning  of  the 
Mobilization/War  period.  This  period  most  closely  resembles 
the  core  time-step  model  and  during  this  period  the  production 
base  previously  acquired  is  typically  brought  to  wartime  produc¬ 
tion  rates  and  the  consumable  is  produced  by  the  production 
base  as  well  as  drawn  down  by  the  wartime  requirements.  Addi¬ 
tional  production  base  may  be  acquired,  if  needed,  and  time 
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lags  In  changing  production  rates,  as  well  as  shipping  the 
consumable  from  where  It  Is  produced  to  the  theater,  are 
carefully  kept  track  of. 

Throughout  these  three  periods,  the  costs  of  all  activi¬ 
ties  are  accounted  for  and  the  objective  of  the  model  is  to 
arrange  these  activities  during  the  Build-up,  Steady-state, 
and  Mobilization/War  periods  so  as  to  minimize  the  total 
costs . 1 

There  are  various  optional  constraints,  such  as  budget 
constraints,  that  can  be  imposed  by  the  user  who  wishes  to 
explore  a  range  of  policy  options. 

Chapter  II  supplies  the  mathematical  formulation  of  the 
model.  Chapter  III  is  a  User's  Guide.  Appendix  A  contains 
Glossaries  of  Input  Parameters  and  Model  Variables  and 
Appendix  B  is  a  FORTRAN  listing  of  the  model  as  implemented 
at  IDA. 


*At  the  user's  discretion,  wartime  costs  can  be  included  or  omitted  in 
this  total. 
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II.  MATHEMATICAL  FORMULATION 


The  S/PB  model  represents  activities  over  time — from  the 
beginning  of  an  acquisition  period,  during  which  capital  equip¬ 
ment  for  the  production  base  is  acquired  and  the  stockpile  is 
prepared,  through  a  period  from  the  end  of  the  build-up  to  the 
beginning  of  the  mobilization,  during  which  the  various  com¬ 
ponents  of  the  model  are  kept  at  constant  levels,  to  a  final 
period  of  mobilization  and  war.  These  are  called,  respectively 
the  Build-up,  the  Steady-state  and  the  Mobilization/War  periods 
While  each  of  these  periods  is  an  embodiment  of  essentially  the 
same  activities,  the  different  emphasis  placed  on  each  period 
makes  it  convenient  to  model  the  three  periods  in  quite  differ¬ 
ent  ways. 

In  order  to  assist  the  reader  in  comprehending  not  only 
the  entire  model,  but  also  the  differences  and  similarities 
among  the  three  periods  that  partition  the  model,  we  adopt 
a  two  step  approach.  We  first  define  what  we  shall  call  a 
"core  model"  which  comprises  the  fairly  simple  equations  that 
specify  the  interactions  among  model  components  without  regard 
to  initial  and  final  conditions  and  ignoring  the  specific 
assumptions  that  distinguish  the  three  periods.  Once  the 
core  model  has  been  described,  it  provides  the  background  for 
the  three  periods  of  the  S/PB  model.  We  begin  by  discussing 
the  components  common  to  the  core  and  S/PB  models. 

For  simplicity  of  exposition,  we  will  refer  to  the  consum¬ 
able  as  ammunition.  Bear  in  mind,  however,  that  this  is  only 
one  form  of  consumable  and  that  the  model  has  applications  to 
other  wartime  consumables. 
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A.  COMPONENTS 


The  fundamental  components  shared  by  the  core  and  S/PB 
models  are  these: 

(1)  Capital  equipment  for  producing  ammunition 

(2)  A  domestic  ammunition  stockpile 

(3)  An  in-theater  ammunition  stockpile  supplied  from 
the  domestic  stockpile 

(4)  Domestic  and  in-theater  demands  for  ammunition. 

»'  The  capital  equipment  may  be  in  cne  of  three  states.  It 
‘  may  be  in  storage  and  not  producing  ammunition,  or  it  may  be 
•  producing  ammunition  at  a  moderate  rate  (as  during  peacetime) 
or  at  a  high  rate  (as  during  mobilization  and  war).  These  three 
states  we  will  refer  to  as  cold,  warm,  and  hot,  respectively. 

Each  state  entails  different  costs,  both  of  maintaining  the 
capital,  and  of  producing  ammunition  in  the  case  of  warm  and 
hot  ammunition.  Capital  may  be  transferred  among  states,  although 
this  incurs  additional  costs  as  well  as  time  delays. 

In  order  for  the  model  to  distinguish  between,  for  instance, 
expensive,  highly  automated  equipment  that  may  be  very  responsive 
to  wartime  demands,  and  less  responsive,  less  costly  equipment,  or 
between  other  capital  alternatives  (e.g.,  capital  equipment  with 
differing  productivities),  the  model  accommodates  two  types  of 
capital  for  producing  a  single  ammunition  type,  which  we  will 
refer  to  as  type  1  and  type  2  capital.  These  types  of  capital 
are  distinguishable  only  through  the  values  of  the  inputs  that 
pertain  to  them.  Otherwise  the  model  handles  them  in  identical 
ways  . 

Ammunition  produced  by  warm  and  hot  type  1  and  type  2 
capital  equipment  enters  the  domestic  stockpile,  from  which 
some  of  it  may  be  shipped  to  the  in-theater  stockpile.  The 
domestic  stockpile  is  used  to  satisfy  domestic  demand  while 
in-theater  demand  draws  on  the  in-theater  stockpile. 
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Capital  equipment  in  all  states  anj ammunition  in  both 
stockpiles  are  subject  to  deterioration;  that  is,  over  a  per¬ 
iod  of  time,  a  certain  fraction  of  the  resources  becomes  useless. 

The  relationships  among  these  components  are  depicted  in 
Figure  1.  New  capital  of  either  type  enters  the  model  via  pur¬ 
chases  which  feed  directly  into  cold  stock.  From  cold  stocks, 
capital  may  be  transferred  to  warm  or  hot  stocks  and  capital  in 
warm  stocks  may  be  transferred  to  hot  or  back  to  cold  stocks. 

Hot  capital  may  transfer  to  either  cold  or  warm  stocks.  Note 
that  there  is  no  transfer  between  type  1  and  type  2  capital. 

Over  time,  all  six  categories  of  capital  suffer  deterioration, 
as  we  have  already  said,  although  this  is  not  depicted  on  the 
diagram. 

Ammunition  produced  by  warm  and  hot  capital  stocks  enters  the 
domestic  stockpile  from  which  some  is  removed  to  satisfy  domestic 
demand,  some  is  lost  to  deterioration,  and  some  is  transferred  to 
the  in-theater  stockpile.  The  mechanism  by  which  ammunition  is 
transported  from  the  domestic  to  the  in-theater  stockpile,  be  it 
airlift,  sealift,  or  some  other  means,  will  be  referred  to  as  the 
"pipeline."  Part  of  the  in-theater  stockpile  goes  to  satisfy  in¬ 
theater  demand  and  another  fraction  deteriorates.  The  remainder 
is  held  against  future  requirements.  The  domestic  and  in-theater 
stockpiles  are  distinguished  primarily  to  model  the  effect  of 
time  lag  in  the  pipeline;  that  is,  the  delay  between  when  ammuni¬ 
tion  is  produced  and  when  it  is  available  in  the  theater,  and 
also  to  account  for  pipeline  quantity  constraints  and  upper  bounds 
on  the  in-theater  stockpile.  As  in  the  case  of  capital  equipment, 
the  deterioration  of  the  domestic  and  in-theater  stockpiles  is  not 
depicted  in  Figure  1. 

Each  transfer  of  resource,  whether  capital  equipment  or 
ammunition,  incurs  a  time  delay.  Equipment  purchased  may  not 
appear  in  cold  stocks  until  after  a  suitable  period  of  time. 
Equipment  transferred  from  cold  to  warm  or  hot  stocks  cannot 
produce  until  after  a  suitable  period  of  time  while  equipment 

7 


p 

i 

P 

e 


i 


I  n-Theater 
Stockp i I e 


I  n 


-Theater  Demand 


Figure  1.  SCHEMATIC  OF  MODEL 


8 


going  from  warm  to  hot  requires  a  certain  time  to  reach  the  hot 
level,  during  which  it  continues  to  produce  at  the  warm  rate.  In 
a  like  manner,  ammunition  going  from  the  domestic  to  the  in-theater 
stockpile  may  be  thought  of  as  being  in  the  pipeline  for  a  certain 
length  of  time. 

Although  not  explicitly  represented  in  Figure  1,  each 
activity  depicted  has  an  associated  cost.  Costs  apply  to  the 
holding  and  transfer  of  resources,  as  well  as  the  purchase  of 
capital  and  the  production  of  ammunition. 

B.  TIME  PERIODS 

As  discilssed  previously,  the  components  are  manipulated 
over  a  time  span  that  comprises  a  Build-up  period,  a  Steady- 
state  period,  and  a  Mobilization/War  period.  In  order  to  model 
the  dynamics  of  this  manipulation  over  time,  the  three  periods 
are  divided  into  various  numbers  of  equal  length  time  steps. 

The  time  step  is  the  fundamental  unit  of  time — no  action  can 

take  less  than  this  time  unit  to  execute.  For  instance,  if 

the  time  step  is  one  month,  then  all  tjce  time  delays  in  the  model 

must  be  multiples  of  one  month,  as  must  be  the  lengths  of  the 

three  periods.  A  typical  time  span  under  investigation  might 

have  a  Build-up  period  of  five  years  ( 6 0  time  steps),  and  a  Steady- 

state  period  of  15  years  (180  time  steps)  and  a  Mobilization/ 

War  period  of  two  years  (24  time  steps).  The  time  required  for 
purchased  capital  to  enter  cold  stocks  may  be  24  months  (24 
time  steps);  for  capital  to  transfer  from  cold  to  warm  stocks, 

'  six  months  (6  time  steps);  and  so  forth.  The  length  of  the  time 
step,  as  well  as  the  duration  of  the  three  periods,  is  flexible 
and  determined  by  the  user  of  the  S/PB  model. 

C.  THE  CORE  MODEL 

The  core  model  describes  the  interactions  of  the  model 
components  without  regard  to  initial  and  terminal  conditions. 

In  addition,  the  differences  among  the  Build-up,  Steady-state 

9 


and  Mobilization/War  periods  are  suppressed.  The  core  model 
describes  how  levels  of  resources  at  any  given  time  step  relate 
to  the  levels  of  resources  at  other  time  steps  without  the  com¬ 
plicating  distinctions  among  periods.  The  S/PB  model  is  based 
entirely  on  the  core  model,  although  the  assumptions  implicit  in 
each  period  alter  the  basic  mathematical  expressions  considerably. 

We  will  index  the  time  steps  using  the  integer  t,  which, 
one  may  assume,  takes  on  values  between  and  °°  (because  we 
have  ignored  initial  and  terminal  conditions).  The  variables 
of  the  core  model  are  listed  and  defined  below.  Because  of  our 
assumptions,  note  that  there  are  a  countably  infinite  number  of 
variables  in  the  core  model,  which  makes  it  impractical  to  employ, 
although  this  does  not  decrease  its  pedagogical  usefulness.  The 
units  of  measurement  implicit  in  each  variable  are  not  important 
as  long  as  a  consistent  standard  is  adopted.  Finally,  we  employ 
FORTRAN-like  variable  names.  Although  this  is  somewhat  cumber¬ 
some,  these  variable  names  parallel  those  in  the  computer  imple¬ 
mentation  of  the  S/PB  model  and,  therefore,  once  used  to  these 
variable  names,  the  reader  will  find  it  easier  to  learn  the  S/PB 
model.  All  the  variables  are  assumed  nonnegative. 

1  •  Variables 

a  •  Capital  Stocks 

Cl(t)  =  the  amount  of  type  1  cold  capital  stocks  held 
during  time  step  t 

C2(t)  =  the  amount  of  type  2  cold  capital  stocks  held 
during  time  step  t 

Wl(t)  =  the  amount  to  type  1  warm  capital  stocks  held 
during  time  step  t 

W2(t)  =  the  amount  of  type  2  warm  capital  stocks  held 
during  time  step  t 

Hl(t)  =  the  amount  of  type  1  hot  capital  stocks  held 
during  time  step  t 

H2(t)  =  the  amount  of  type  2  hot  capital  stocks  held 
during  time  step. 
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b .  Ammunition  Stockpile 


S(t)  =  the  amount  of  ammunition  held  in  the  domestic 
stockpile  during  time  step  t 

SP(t)  =  the  amount  of  ammunition  held  in  the  in-theater 
stockpile  during  time  step  t. 


Transfer  Variables 


Note:  In  all  cases,  the  transfers  of  assets  described 

below  are  initiated  during  time  step  t  and  con¬ 
cluded  during  a  future  time  step. 

TCWl(t)  =  the  amount  of  type  1  capital  transferred  from 

cold  to  warm  stocks  beginning  during  time  step  t 

TCW2 ( t )  =  the  amount  of  type  2  capital  transferred  from 

cold  to  warm  stocks  beginning  during  time  step  t 

TCHl(t)  =  the  amount  of  type  1  capital  transferred  from 

cold  to  hot  stocks  beginning  during  time  step  t 

TCH2 ( t )  =  the  amount  of  type  2  capital  transferred  from 

cold  to  hot  stocks  beginning  during  time  step  t 

TWHl(t)  =  the  amount  of  type  1  capital  transferred  from 

warm  to  hot  stocks  beginning  during  time  step  t 

TWH2 ( t )  =  the  amount  of  type  2  capital  transferred  from 

warm  to  hot  stocks  beginning  during  time  step  t 

THWl(t)  =  the  amount  of  type  1  capital  transferred  from 

hot  to  warm  stocks  beginning  during  time  step  t 

THW2(t)  =  the  amount  of  type  2  capital  transferred  from 

hot  to  warm  stocks  beginning  during  time  step  t 

THCl(t)  =  the  amount  of  type  1  capital  transferred  from 

hot  to  cold  stocks  beginning  during  time  step  t 

THC2(t)  =  the  amount  of  type  2  capital  transferred  from 

hot  to  cold  stocks  beginning  during  time  step  t 

TWCl(t)  =  the  amount  of  type  1  capital  transferred  from 

warm  to  cold  stocks  beginning  during  time  step  t 

TWC2 ( t )  =  the  amount  of  type  2  capital  transferred  from 

warm  to  cold  stocks  beginning  during  time  step  t 

PIPE ( t )  =  the  amount  of  ammunition  transferred  from  the 
domestic  to  the  in-theater  stockpile  beginning 
during  time  step  t. 
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3. 


Capital  Purchase  Van' a b  1  e s 


PCl(t)  -  the  amount  of  type 
time  step  t 

PC2 (t )  =  the  amount  of  type 
time  step  t. 


1  capital  purchased 


during 


2  capital  purchased  during 


4-  Structural  Equations 

The  structural  equations  of  the  core  model  are  given  below. 
They  describe  the  interactions  over  time  of  the  stockpiles  and 
capital  stocks.  Parameters  required  by  the  core  model  are 
described  following  the  equations  in  which  they  are  introduced. 


a •  Cold  Equipment  Stocks 

(1)  Cl (t )  =  Cl(t-l)  •  (1-DC1 )  +  PCl(t-LPl)  +  TWC1 ( t-LWCl ) 

+  THC1 ( t-LHCl )  -  TCHl(t)  -  TCWl(t) 

(2)  C2(t)  =  C2 (t-1 )  •  (1-DC2)  +  PC  2 ( t-LP2 )  +  TWC2(t-LWC2) 

+  THC2 (t-LHC2 )  -  TCH2(t)  -  TCW2(t) 

where 

DC1  =  the  fraction  of  type  1  cold  stocks  lost  to 
deterioration  during  one  time  step 

DC 2  =  the  fraction  of  type  2  cold  stocks  lost  to 
deterioration  during  one  time  step 

Lpl  =  the . number  of  time  steps  from  the  time  type  1 

capital  is  purchased  until  it  is  delivered  to 
cold  stocks 

LP2  =  the . number  of  time  steps  from  the  time  type  2 

capital  is  purchased  until  it  is  delivered  to 
cold  stocks 

LWC1  the  number  of  time  steps  required  to  transfer 
Cyps  1  capital  from  warm  to  cold  stocks 

LWC2  =  the  number  of  time  steps  required  to  transfer 
Cyps  2  capital  from  warm  to  cold  stocks 

LHC1  =  the  number  of  time  steps  required  to  transfer 
type  1  capital  from  hot  to  cold  stocks 

LHC2  =  the  number  of  time  steps  required  to  transfer 
type  2  capital  from  hot  to  cold  stocks. 
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Equations  '(1)  and  (2)  are  easily  interpreted.  For  instance. 
Equation  (1)  states  that  the  amount  of  type  1  cold  capital  held 
during  time  step  t  is  the  total  of  (i)  the  amount  held  during 
time  step  t-1,  corrected  for  deterioration,  (ii)  plus  the  amount 
of  type  1  capital  purchased  LP1  time  steps  previously,  (iii)  plus 
the  amount  of  type  1  capital  transferred  from  warm  to  cold  stocks 
beginning  LWC1  time  steps  previously,  (iv)  plus  the  amount  of 
type  1  capital  transferred  from  hot  to  cold  stocks  beginning  LH^l 
time  steps  previously,  (v)  minus  the  amount  of  type  1  capital 
transferred  from  cold  to  warm  stocks  beginning  during  this  time 
step,  (vi)  minus  the  amount  of  type  1  capital  transferred  from 
cold  to  hot  stocks  beginning  during  this  time  step.  An  analogous 
explanation  applies  to  Equation  (2). 

Because  the  remaining  structural  equations  closely  resemble 
Equations  (1)  and  (2),  being  accountings  of  the  flows  of  resources, 
we  leave  it  to  the  reader  to  supply  most  of  the  interpretations 
of  the  remaining  equations. 

b  .  Warm  Equipment  Stocks 

(3)  Wl(t)  =  Wl(t-l)  •  ( 1-DW1 )  +  TCWl(t-LCWl)  +  THW1 (t-LHWi ) 

-  TCWl(t)  -  TWHl(t) 

W2(t)  =  W2 (t-1 )  •  (1-DW2)  +  TCW2 (t-LCW2 )  +  THW2(t-LHW2) 

-  TWC  2 ( t )  -  TWH2 ( t ) 

where 

DW1  =  the  fraction  of  type  1  warm  stocks  lost  to  deteri¬ 
oration  during  one  time  step 

DW2  =  the  fraction  of  type  2  warm  stocks  lost  to  deteri¬ 
oration  during  one  time  step 

LCW1  =  the  number  of  time  steps  required  to  transfer 
type  1  capital  from  cold  to  warm  stocks 

LCW2  =  the  number  of  time  steps  required  to  transfer 
type  2  capital  from  cold  to  warm  stocks 

LHW1  =  the  number  of  time  steps  required  to  transfer 
type  1  capital  from  hot  to  warm  stocks 
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LHW2  -  the  number  of  time  steps  required  to  transfer 
ype  2  capital  from  hot  to  warm  stocks. 


c . 

Hot  Equipment  Stocks 

(5) 

HI  ( t )  =  Hl(t-l)  • 

(1 

-  THCl(t) 

__  l 

(6) 

H2(t)  =  H2 ( t-1 )  • 

(1 

where 

-  THC2 (t ) 

__  r 

DH1 
DH2  = 
LCH1  = 
LCH2  = 
LWH1  = 
LWH2  = 


the  fraction  of  type  1  hot  stocks  lost  to  deteriora¬ 
tion  during  one  time  step 

the  fraction  of  type  2  hot  stocks  lost  to  deteriora- 
tion  curing  one  time  step 

the  number  of  time  steps  required  to  transfer 
type  1  capital  from  cold  to  not  stocks 

=  the  number  of  time  steps  required  to  transfer 
type  2  capital  from  cold  to  hot  stocks 

the  number. of  time  steps  required  to  transfer 
type  1  capital  from  warm  to  hot  stocks 

the  number  of  time  steps  required  to  transfer 
type  2  capital  from  warm  to  hot  stocks. 


d •  Domestic  Ammunition  Stockpile 


(7)  S(t)  =  S(t-l)  •  ( 1-DS )  +  Villi  +  W2(t)  HI ( t )  H2(t) 

KW1  KW2  +  “KH1  +  “KH2 


where 


-  ,E 

t—LWHl<  s  <t 


TWH1(s) 

KW1 


-  E 

t-LWH2<s<t 


TWH2 ( s ) 

KW2 


-  PIPE (t )  -  DD ( t ) 


Du  the  fraction  of  the  domestic  ammunition  stockpile 
lost  to  deterioration  during  one  time  step 

V  KW1  =  the  capital  to  output  ratio  for  type  1  warm  capital 
V  (see  discussion  below) 


KW2  =  the  capital  to  output  ratio  for  type  2  warm  capital 
(see  discussion  below) 

XH1  =  the  capital  to  output  ratio  for  type  1  hot  capital 
(see  discussion  below) 

KH2  =  the  capital  to  output  ratio  for  type  2  hot  capital 
(see  discussion  below) 

DD (t )  =  the  domestic  demand  for  ammunition  during  time 
step  t. 

The  core  model  represents  the  production  of  ammunition 
through  the  capital  to  output  ratios  KW1,  KW2 ,  KH1 ,  and  KH2 . 

Each  ratio  represents  the  amount  of  capital  of  the  specified 
category  required  to  produce  one  unit  of  ammunition,  so  that 
the  expression 

Wl(t)  ,  W2(t)  HI ( t )  H2(tl 

KW1  KW2  KH1  KH2 


♦  E 

t-LWHl<s<t 


TWH1 ( s ) 

KW1 


+  E 

t-LWH2<s<t 


TWH2 ( s ) 
KW2 


represents  the  total  amount  of  ammunition  produced  during  time 
step  t.  The  final  two  terms  represent  production  at  warm  rates 
by  capital  being  transferred  from  warm  to  hot  stocks.  The  sum¬ 
mations  account  for  the  transfer  time  delay. 


e .  In-Theater  Ammunition  Stockpile 

(3)  SP(t)  =  SP(t-l)  •  ( 1-DSP )  +  PIPE ( t-LP IPE )  -  FD(t) 

where 

DSP  =  the  fraction  of  the  in-theater  ammunition  stock¬ 
pile  lost  to  deterioration  during  one  time  step 

LPIPE  =  the  number  of  time  steps  required  to  transfer 
ammunition  from  the  domestic  to  the  in-theater 
stockpile 

FD(t)  =  the  in-theater  demand  for  ammunition  during  time 
step  t. 
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5. 


Costs 


The  user’s  goal  in  employing  the  S/PB  model  is  to  determine 
values  for  the  variables  that  are  consistent  with  the  structural 
equations,  that  satisfy  additional  constraints  of  the  user's 
choosing,  and  that  minimize  some  objective  function.  The  objec¬ 
tive  function  we  choose  is  that  which  represents  the  total  cost 
of  all  activities  represented  by  the  model,  discounted  over  time. 
To  be  consistent  with  our  two  step  approach  to  the  description  of 
the  S/PB  model,  we  provide,  in  this  section,  an  objection  func¬ 
tion  for  the  core  model. 

We  begin  by  listing,  for  each  variable  of  the  core  model, 
the  name  of  the  parameter  describing  the  cost  associated  with 
that  variable  and  the  definition  of  the  cost.  Note  that  some 
variables,  specifically  Wl(t),  W2(t),  Hl(t),  and  H2(t),  are 
associated  with  more  than  one  cost,  and  that  some  costs,  namely, 
VPW1  and  VIW2,  are  associated  with  more  than  one  variable. 


Variable 

Cost  Parameter 

Def ini tion 

PCI (t) 

VPC1 

The  cost  of  purchasinq  one  unit  of 
type  1  capital 

PC2(t) 

VPC2 

The  cost  of  purchasinq  one  unit  of 
type  2  capital 

ci(t) 

VC1 

The  cost  of  maintaininq  one  unit  of 
type  1  capital  in  cold  stocks  for 
one  time  step. 

C2(t) 

VC2 

The  cost  of  maintaininq  one  unit  of 
type  2  capital  in  cold  stocks  for 
one  time  step 

Wl(t) 

VW1 

The  cost  of  maintaininq  one  unit  of 
type  1  capital  in  warm  stocks  for 
one  time  step 

W2(t) 

VW2 

The  cost  of  maintaininq  one  unit  of 
type  2  capital  in  warm  stocks  for 
one  time  step 
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Variable 


Cost  Parameter 


Wi(t) 

KW1 

VPW1 

TWHl(t) 

KW1 

W2(t). 

KW2 

VPW2 

TWH2(t) 

KW2 

HI  (t) 

VH1 

H2(t) 

VH2 

HI  (t) 

KH1 

VPH1 

H2(  t) 

KH2 

VPH2 

s(t) 

VS 

SP(t) 

VSP 

PIPE(t) 

VPIPE 

TCW1 (t) 

VCW1 

TCW2(t) 

VCW2 

TCHl(t) 

i  VCH1 

TCH2(t)  VCH2 
TWHl(t)  VWH1 
TWH2(t)  VWH2 
TWCl(t)  VWC1 


Definition 


The  cost  of  producing  one  unit  of 
ammunition  from  type  1  warm  stocks. 


The  cost  of  producing  one  unit  of 
ammunition  from  type  2  warm  stocks. 


The  cost  of  maintaining  one  unit  of 
type  1  caDital  in  hot  stocks  for  one 
time  step 

The  cost  of  maintaining  one  unit  of 
type  2  capital  in  hot  stocks  for  one 
time  step 

The  cost  of  producing  one  unit  of 
ammunition  from  type  1  hot  stocks 

The  cost  of  producing  one  unit  of 
ammunition  from  type  2  hot  stocks 

The  cost  of  maintaining  one  unit  of 
ammunition  in  the  domestic  stockpile 
for  one  time  step 

The  cost  of  maintaining  one  unit  of 
ammunition  in  the  in-theater  stock¬ 
pile  for  one  time  step 

The  cost  of  transferring  one  unit  of 
ammunition  from  the  domestic  to  the 
in-theater  stockpile 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  cold  to  warm  stocks 

The  cost  of  transferring  one  unit  of 
type  2  capital  from  cold  to  warm  stocks 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  cold  to  hot  stocks 

The  cost  of  transferring  one  unit  of 
type  2  capital  from  cold  to  hot  stocks 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  warm  to  hot  stocks 

The  cost  of  transferring  one  unit  of 
type  2  capital  from  warm  to  hot  stocks 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  warm  to  cold  stocks 

17 


Variable 

Cost  Parameter 

Definition 

TWC2(t) 

VWC2 

The  cost  of  transferring  one  unit  of 
type  2  capital  from  warm  to  cold  stocks 

THC1 (t) 

VHC1 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  hot  to  cold  stocks 

THC2(t) 

VHC2 

The  cost  of  transferring  one  unit  of 
type  2  capital  from  hot  to  cold 
stocks 

THWl(t) 

VHW1 

The  cost  of  transferring  one  unit  of 
type  1  capital  from  hot  to  warm 
stocks 

THW2(t) 

VHW2 

The  cost  of  transferring  one  unit  of 

t.yoe  2  capital  from  hot  to  warm 
stocks 


Note  that  the  above  cost  parameters  are  independent  of 
time  they  are  the  same  for  all  time  seeps.  To  allow  for 
inflation  and  also  opportunity  costs,  ehe  core  model  permits 
these  costs  to  be  discounted  over  time.  Let  the  parameter  R 
denote  the  discount  factor  that  applies  to  a  single  time  step. 
Then  the  cost  of  an  activity  for  a  single  time  step  is  (1+R)-1 
times  the  cost  of  that  activity  for  the  previous  time  step. 

For  instance,  if  the  cost  of  maintaining  one  unit  of  ammunition 
in  the  domestic  stockpile  during  time  step  t  is  VS,  then  the 
cost  of  maintaining  one  unit  of  the  domestic  stockpile  during 
time  step  (t+1)  is  VS/(l+R),  and  the  cest  during  time  step 
(t+2)  is  VS/(1+R)?. 

For  the  core  model,  we  will  arbitrarily  select  time  t  =  0 
for  the  base  costs  so  that  the  cost  of  an  activity  during  time 
step  t  is  the  cost  parameter  times  (l+R)-+: 

We  present  below  the  objective  function  of  the  core  model. 
Because  of  the  core  model's  infinite  time  horizon,  one  should 
view  this  function  as  a  formal  expression  only,  since  for 
actual  variables  and  parameters  it  may  well  be  infinite. 
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(9) 


E 

all  t 


(1+R) 


\ 

t  '  ) 


PCl(t)-VPCl  +  PC2 (t ) • VPC2  +  Cl(t)-VCl 


+  C2(t )  -VC2  +  Wl(t  )  •  (VW1  +  +  W2(t )  •  (vW2  +  ^PW2 


KW1 


KW2 


HI ( t )  *  ^VHl  +  ||f +  H2 (t )  •  (vH2  +  ||p-j  +  S(t)*VS 


+  SP(t)-VSP  +  PIPE (t ) • VPIPE  +  TCW1 ( t ) • VCW1 
+  TCW2 (t ) • VCW2  +  TCH1 ( t ) • VCH1 


+  TCH2  ( t )  •  VCH2  +  TWHl(t)  •  [VVJHl  + 


( 


VPW1 

KW1 


LWH1 

I 

1=1 


(1+R) 


i-1 


/  LWH2  . 

+  TWH2(t)  •  IVWH2  +  •  l  - ±-r-. 

\  KW2  1=1  (l+R)1- 

+  TWC1 ( t ) •VWC1  +  TWC2 (t ) • VWC2 
+  THC1 ( t ) • VHC1  +  THC  2 ( t ) • VHC  2  +  THW1 ( t ) • VHW1 
+  THW2 ( t ) • VHW2  . 


This  concludes  our  discussion  of  the  core  model.  Although 
not  implementable ,  it  is  easily  comprehendible .  Note  that  all 
the  structural  equations  as  well  as  the  objective  function  are 
linear  in  all  the  variables.  By  imposing  additional  assumptions 
on  the  interactions  defined  by  the  core  model,  we  will  create 
the  S/PB  model.,  to  which  we  will  append  some  additional  constraints. 


D.  THE  STOCKPILE/PRODUCTION  BASE  MODEL 

Although  it  is  feasible  to  structure  the  S/PB  model  as  a 
completely  time-stepped  model,  similar  to  the  core  model,  the 
result  of  long  Build-up,  Steady-state  and  Mobilization/War 
periods  combined  with  reasonably  short  time  steps  would  be  a 
model  much  too  unwieldy  for  analytical  purposes.  Indeed,  such 
a  model  probably  could  be  handled  by  only  the  largest  computers. 
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We  therefore  have  built  the  S/PB  model  as  a  hybrid,  wherein 
the  Build-up  and  Steady-state  periods  have  been  simplified  by 
aggregation  so  that  all  the  activities  during  those  periods, 
no  matter  how  long  they  are,  can  be  described  by  comparatively 
few  variables.  This  allows  us  to  expand  the  detail  of  the  model 
during  the  Mobilization/War  period  where  a  true  time-stepped 
approach  is  used. 


1 .  The  Bui  1 d-Up  Period 

The  Build-up  period  is  distinguished  by  the  acquisition  of 
resources:  capital  equipment  and  ammunition.  These  are' added 

to  resources  already  owned.  We  denote  by  NPURCH  the  number  of 
time  steps  in  the  Build-up  period.  The  assumptions  behind  the 
Build-up  period  include: 


(1)  The  demand  for  ammunition  during  this  period  is 
constant  over  time. 

(2)  The  domestic  and  in-theater  ammunition  stockpiles 
are  essentially  indistinguishable;  that  is,  they 
may  be  considered  as  a  single  ammunition  reservoir. 

(3)  Because  the  Build-up  period  occurs  during  peacetime, 
we  assume  that  ammunition  is  produced  at  a  single 
production  rate  (presumably  the  most  economical 
rate).  Therefore  only  cold  stocks  (for  storage) 
and  warm  stocks  (for  production)  are  active  during 
the  Build-up  period.  Hot  stocks  do  not  actively 
appear . 

(4)  The  longer  time  delays  involved  in  the  acquisition  of 
new  capital  are  taken  into  account  while  the  smaller 
time  delays  involved  in  transferring  capital  between 
producing  and  nonproducing  states  are  disregarded, 
except  for  the  purpose  of  discounting  costs. 


In  order  to  make  the  description  and  equations  simpler,  we 
will  first  describe  the  Build-up  period  as  if  there  were  no  time 
delay  in  acquiring  new  capital  and  then  in  the  final  part  of 
this  section  we  will  describe  the  effects  of  considering  that 
time  delay. 

We  divide  the  purchases  of  capital  into  two  categories. 

The  first  category  is  that  capital  purchased  for  eventual  use, 
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but  which,  for  the  Build-up  period,  will  be  maintained  in  cold 
stocks.  The  second  category  is  that  capital  purchased  for  the 
purpose  of  creating  the  ammunition  stockpile  and  for  satisfying 
demand  during  this  period.  This  latter  category  of  capital  will 
therefore  be  maintained  in  warm  stocks.  The  distinct  purposes 
of  these  categories  of  capital  suggest  that  there  should  be  no 
transfer  of  capital  between  them  during  the  Build-up  period,  and 
we  will,  in  fact,  assume  this.  With  this  idea  in  mind,  we  will 
refer  to  the  "purchase  of  cold  capital"  as  the  purchase  of  that 
capital  intended  for  cold  stocks,  and  to  the  "purchase  of  warm 
capital"  as  the  purchase  of  that  capital  intended  for  warm  stocks. 
Recalling  the  core  model,  it  is  evident  that  the  "purchase  of 
warm  capital"  involves  two  steps:  the  purchase  of  capital  and 
its  transfer  from  cold  to  warm  stocks. 

a .  Purchase  of  Cold  Capital 

In  order  to  succeed  in  our  effort  to  limit  the  number  of 
variables  required  to  describe  the  Build-up  period,  we  must 
select,  a.  ‘priori ,  a  family  of  purchase  trends  over  time.  For 
the  purchase  of  cold  capital,  we  allow  only  linear  purchase 
patterns.  Examples  of  linear  purchase  patterns  for  type  1 
capital  are  depicted  in  Figure  2. 
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Figure  2.  LINEAR  PURCHASE  PATTERNS 
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The  horizontal  axes  in  Figure  2  show  the  time  steps  of  the 
Build-up  period.  The  vertical  axes  all  measure  the  amount 
of  type  1  capital  purchased.  It  is  clear  why  these  are  called 
linear  purchase  patterns.  Figure  3  illustrates  a  purchase 
pattern  not  permitted. 


•  •  • 


Time  Steps 

Figure  3.  DISALLOWED  PURCHASE  PATTERN 

For  the  purpose  of  this  discussion,  let  us  assume  that  the 
first  time  step  of  this  period  is  denoted  by  t  =  1 .  The  last  is 
therefore  t  =  NPURCH.  The  S/PB  model  variables  that  describe 
the  family  of  cold  capital  purchase  patterns  are: 

BC1  =  the  amount  of  type  1  cold  capital  purchased  at 
time  step  t  =  1 

BC2  =  the  amount  of  type  2  cold  capital  purchased  at 
time  step  t  =  1 

SLPPC1  =  the  positive  component  of  the  slope  of  the 
type  1  cold  capital  purchase  pattern 

SLPNC1  =  the  negative  component  of  the  slope  of  the 
type  1  cold  capital  purchase  pattern 

SLPPC2  =  the  positive  component  of  the  slope  of  the 
type  2  cold  capital  purchase  pattern 

SLPNC2  =  the  negative  component  of  the  slope  of  the 
type  2  cold  capital  purchase  pattern. 

The  type  1  cold  capital  purchase  at  any  time  step  t  of 
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the  Build-up  period  is  therefore 

BC1  +  (t-1)  •  ( SLPPC1-SLPNC1 ) 

and,  similarly,  the  type  2  cold  capital  purchased  at  any  time 
step  t  is 


BC2  +  (t-1)  •  ( SLPPC2-SLPNC2 )  . 

The  reason  we  require  the  slopes  be  divided  into  positive  and 
negative  components  is  to  maintain  the  nonnegativity  of  all 
model  variables. 

The  total  amount  of  cold  capital  at  the  end  of  the  Build¬ 
up  period  is  the  sum  of  all  the  purchases  plus  any  original 
cold  capital  existing  before  time  step  t  =  1.  Note  that  capital 
purchased  during  different  time  steps  suffers  varying  deteri¬ 
oration  by  the  end  of  the  Build-up  period.  Capital  purchased 
during  time  step  t  =  1  as  well  as  original  capital  has  deteri¬ 
orated  for  (NPURCH-1)  time  steps  while  capital  purchased  during 
time  step  t  =  NPURCH  has  not  deteriorated  at  all  by  the  end  of 
the  Build-up  period. 

Table  1  illustrates  how  the  total  cold  capital  at  the  end 
of  the- Build-up  period  is  determined.  In  this  table  B  stands 
for  BC1,  S  for  ( SLPPC1-SLPNC1 )  and  0  for  the  original  type-1 
cold  capital. 

The  term  DC1,  or  course,  is  the  type  1  .cold  capital 
deterioration  factor  we  have  already  encountered  in  the  core 
model . 

A  similar  progression  applies  to  type  2  cold  capital 
purchases . 

Let 

0C0LD1  =  the  amount  of  original  type  1  cold  capital  and 

0C0LD2  =  the  amount  of  original  type  2  cold  capital. 
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Table  1.  COLD  CAPITAL  ACCRUAL 


Time  Step 


Capital 

Purchased 


Capital  on  Hand 


1  B 


0+B 


2 


B+S 


B+S  +  (1 -DC1 ) (O+B) 


3 

4 

NPURCH 


B+2S 

B+3S 


B+(NPURCH-1)-S 


B+2S  +  (1 -DC!) (B+S)  +  (1-DC1)2(0+B) 

B+3S  +  (1 -DC1 ) (B+2S)  +  ( 1 -DC1 ) 2 ( B+S )  +  (1 -DC1 )3(0+B) 


"NPURCH  .  / 

E  ( 1 -DCl ) 1 ' 

+  s 

[NPURCH-1  ,  .1 

E  i(i-nci)"PURCH-1-1 

i=l  J 

L  1=1  J 

Then  the  amounts  of  type  1  and  type  2  cold  capital  at  the 
end  of  the  Build-up  period  are  given  by 


(10) 


"NPURCH  .  ■ 

E  (l-DCl)1 

"NPURCH-1  NPURCH-l-i- 

Bcr 

+  (SLPPC1-SLPNC1 )• 

E  i(l-DCl) 

1=1 

1=1 

+  OCOLD1  •  (1-DC1) 


NPURCH  -1 


(11)  BC2* 

"NPURCH  .  , 

E  ( l-DCl ) ] 

+  ( SLPPC2-SLPNC2 )  • 

"NPURCH-1  NPURCH-1-1 

E  1 ( 1-DC2 ) 

1=1  J 

.  1=1 

+  OCOLD2  •  (1-DC2) 


NPURCH  -1 


b .  Purchase  of  Warm  Capital 

Because  the  purchase  of  warm  capital  is  tied  to  the  pro¬ 
duction  of  ammunition,  the  S/PB  model  allows  not  only  the 
linear  purchase  patterns  already  discussed,  but  also  additional 
purchases  for  the  first  time  step  only.  The  motivation  behind 
this  additional  degree  of  freedom  is  that  warm  capital  purchased 
during  the  latter  stages  of  the  Build-up  period  can  produce 
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ammunition  for  only  a  relatively  short  time.  Therefore,  the 
model  allows  one  to  look  at  scenarios  in  which  the  maximum  use 
can  be  obtained  from  warm  capital;  that  is,  when  all  the  warm 
capital  is  purchased  at  the  beginning  of  the  Build-up  period. 
Figure  4  illustrates  permissible  warm  capital  purchase  patterns. 
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Figure  4.  ALLOWABLE  WARM  CAPITAL  PURCHASES 


The  model  variables  that  determine  this  family  of  purchase 
patterns  are: 


BW1  =  the  amount  of  type  1  warm  capital  purchased  during 
time  step  1  as  part  or  the  linear  portion  of  the 
purchase  pattern 

BW2  =  the  amount  of  type  2  warm  capital  purchased  during 
time  step  1  as  part  of  the  linear  portion  of  the 
purchase  pattern 
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IBW1  =  the  amount  of  type  l  warm  capital  purchased  during 
time  step  1  in  addition  to  BW1 

IBW2  =  the  amount  of  type  2  warm  capital  purchased  during 
time  step  1  in  addition  to  BW2 

SLPPW1  =  the  positive  component  of  the  slope  of  the  linear 

portion  of  the  type  1  warm  capital  purchase  pattern 

SLPNW1  =  the  negative  component  of  the  slope  of  the  linear 

portion  of  the  type  1  warm  capital  purchase  pattern 

SLPPW2  =  the  positive  component  of  the  slope  of  the  linear 

portion  of  the  type  2  warm  capital  purchase  pattern 

SLPNW2  =  the  negative  component  of  the  slope  of  the  linear 

portion  of  the  type  2  warm  capital  purchase  pattern. 

Therefore,  at  time  step  t  =  1,  the  amounts  of  types  1  and  2 
warm  capital  purchased  are,  respectively 


and 


BW1  +  IBW1 


BW2  +  IBW2 

while  for  time  steps  t  between  t  =  2  and  t 
of  warm  capital  purchased  are 


NPURCH, 


and 


BW1  +  (t-1)  •  (SLPPW1-SLPNW1) 
BW2  +  (t-1)  •  ( SLPPW2-SLPNW2 ) . 


the  amounts 


The  amounts  of  warm  capital  at  the  end  of  the  Build-up 
period  are  given  by  expressions  similar  to  those  for  cold 
capital.  The  only  differences  are  the  IBW1  and  IBW2  terms 
which  can  clearly  be  handled  the  same  way  as  original  warm 
capital.  Let 

0WARM1  =  the  amount  of  original  type  1  warm  capital,  and 
0WARM2  =  the  amount  of  original  type  2  warm  capital. 

Then  the  amounts  of  type  1  and  type  2  warm  capital  at  the  end 
of  the  Build-up  period  are  given  by  the  following  expressions: 
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"NPURCH 

(1-DW1)1  1 

‘  NPURCH-1  NPURCH-1 -i~ 

(12) 

BWl  • 

E 

+  ( SLPPW1-SLPNW1 )  • 

E  Kl-DWl) 

L  1=1 

-* 

_  i=l 

+ 

(3BW1  +  0WARM1)  •  (1-DW1)NPURCH  1 

(13) 

BW2  • 

f NPURCH 

E 

( 1-DW2 ) 1  1 

+  (SLPPW2-SLPNW2)  . 

NPURCH-1  MpTm„F  ,  .1 

T  i(l-DW2)NPURCh“1_1 

i=l 

_  i=l 

+  (IBW2  +  0WARM2)  •  (1-DW2)NPURCH  1  . 


As  warm  capital  is  purchased,  ammunition  is  produced.  Some 
of  this  ammunition  goes  to  satisfy  peacetime  demand,  another 
portion  is  lost  to  deterioration.  The  ammunition  remaining  at 
the  end  of  the  Build-up  period  can  be  determined  using  much  the 
same  approach  illustrated  by  Table  1,  with  the  inclusion  of  am¬ 
munition  productioh  and  deterioration,  and  the  satisfaction  of 
ammunition  demands.  If 


OMUN  =  the  amount  of  original  ammunition, 

BPDEM  =  the  demand  for  ammunition  during  each  time  step  of 
the  Build-up  period. 


then  the  size  of  the  ammunition  stockpile  at  the  end  of  the 
Build-up  period  is 


(14) 


EW1 

KW1 


BW2 

KW2 


NPURCH 


E  (i-DS )NPURCH-,]'  •  1  E  a-™i) 

1=1  I  i=l 


i-1) 


J 


'NPURCH 


E  (l-DS) 


NPURCH-j 


L  i=i 

(SLPFW1-SLPNW1) 

KW1 


■IS 


°  (1-DW2)1  1 


NPIMCH  ( )  NPURCH-j  .  j  '^(l-DWl)^1'1  j 

j=l  1  i=l  ’ 


( SLPPW2-SLPNW2 ) 

KW1 


"NPURCH 

t  i  r 

Z  (1.DS)NWR0H-J 

(  J  1  1  i  ) 

.  £  i(l-DW2)J  [ 

1  i=l  )_ 

(continued  on  next  page) 
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+ 


+ 


(IBW1+0WARM1 ) 

KW1 


(IBW2+OWARM2) 

KW2 


-  BPDEM  • 


NPURCH-1 

E  d-DWl)1™^1-1  ■ 

■  ( 1-DS ) 1 

i=l 

- 

fNFURCH-1 

E  d-DWB)1™0^1"1  ■ 

i=l 

(l-DS)1 

'NPURCH-1  .  n*l 

E  (1-DS)J  +  OMUN  ■  (1-DS)NPURCH-1 

J 


Note:  In  the  above  expression,  and.  throughout  this  paper, 

we  will  adopt  the  convention  that  in  summation  of  the  form 
b 

I  f(i)j  where  b  <  a,  is  equal  to  zero. 
i=a 

c •  Feasibility  Consideration 

Certain  constraints  are  imposed  on  ohese  variables  to  ensure 
that  the  purchase  patterns  are  feasible.  In  particular,  we 
demand  that  the  amounts  of  capital  purchased  during  any  time 
step  of  the  Build-up  period  are  nonnegative.  This  can  be 
ensured  by  the  nonnegativity  of  the  model  variables  and  by  the 
following  constraints: 


(15) 

(16) 

(17) 

(18) 


BC1  +  (NPURCH-1) 
BC2  +  (NPURCH-1) 
BW1  +  (NPURCH-1) 
BW2  +  (NPURCH-1) 


( SLPPC1-SLPNC1 )  >  0 
(SLPPC2-SLPNC2)  >  0 
(SLPPW1-SLPNW1 )  >  0 
(SLPPW2-SLPNW2)  >  0 


We  also  require  that  the  warm  capital  purchased  also  be 
able  to  satisfy  Build-up  period  demand  fcr  ammunition.  This 
will  generally  be  ensured  by  requiring  that  production  be  suf¬ 
ficient  to  satisfy  this  demand  at  both  the  beginning  and  end 
of  the  Build-up  period.  These  constraints  take  the  form 
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(19) 

(20) 


1  ( IBW1+BW1+OWARM1 )  + 


KW1 


KW1 


<12>  + 


KW2 


( IBW2+BW2+0WARM2 )  >  BPDEM 
<13>  1  BPDEM 


where  <12>  stands  for  expression  (12)  above  and  <13>  stands  for 
expression  (13) • 


d .  Costs 

In  this  section  we  list  the  costs  associated  with  each 
variable  of  the  Build-up  period.  Because  we  have  compressed 
the  core  model  variables  into  the  fewer  Build-up  period 
variables  of  the  S/PB  model,  each  variable  will  have  associated 
with  it  two  or  more  costs  from  the  core  model. 


BC1 

Two  costs  are  associated  with  BC1.  The  first  accounts  for 
the  actual  purchase  of  type  1  capital  and  the  second  specifies 
the  costs  of  maintaining  that  capital,  taking  into  account 
the  fact  that  some  of  that  capital  is  deteriorating. 

The  unit  purchase  costs  over  the  Build-up  period  are 
simply 


NPURCH  1 

<21)  VPC1  '  i?i  (i+R)i-LP1  ■ 

This  is  because,  during  each  time  step  t,  the  costs  of  pur¬ 
chasing  capital  through  this  variable  are  just 

BC1  •  VPCl/(l+R)t_LP1  • 


This  expression  implies  that  we  discount  costs  beginning  with 
time  step  t  =  1 3  a  convention  we  will  maintain  throughout  this 
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paper.  Note  that  we  have  corrected  the  costs  for  the  time  lag 
LP1  connected  with  the  purchase  of  type  1  capital. 

The  second  cost  is  that  associated  with  maintaining  the 
cold  capital  stocks  contributed  by  BC1.  Table  2  lists  the 
cold  stock  level,  over  time,  contributed  by  the  BC1,  taking 
deterioration  into  account. 

Table  2.  COLD  STOCKS  CONTRIBUTED  BY  BC1 


Time  Step 

Stock  Level 

1 

BC  1 

2 

BC1  •  (l-DCl)BCl 

3 

BC1  +  (1  -DC!  )  BC 1  +  (1  -DC1  )2  •  BC1 

NPURCH 

BC  1 

"NPURCH  .  .1 

£  ( 1  —  DC  1  ) 1  ”  I 

Therefore  the  unit  cost  of  maintaining  the  portion  of  the 
type  1  cold  stock  contributed  by  BC1  is 

NPURCH  i 

(22)  VC1  •  V  - T  •  l  (1-DC1)J-1 

1=1  (1+R) 1  j=l 


so  that  the  total  unit  cost  associated  with  BC1  is  just 
(23)  <21>  +  <2  2>  . 

3 

that  is,  the  total  cost  attributable  to  BC1  is 

BC1  •  <T23>  • 
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BC2 


The  unit  cost  of  BC2  can  be  calculated  in  precisely  the 
same  manner  as  those  of  BC1.  The  result  is 


NPURCH 

(24)  VPC2  *  £ - ,■  TP?  +  VC2 

1=1  (1-R)1_LP^ 


NPURCH 


£ 


i=l 


_ 1 _ 

( 1+R) ± 


l  (1-DC2)J 

j=l 


-1 


SLPPC1 -SLPNC1 

The  costs  associated  with  the  quantity  ( SLPPC1-SLPNC1 )  also 
comprise  purchase  and  stockpile  maintenance  costs.  It  is  not 
difficult  to  see  that  the  unit  purchase  costs  are 


VPC1 


NPURCH 

£ 

i=l 


i-1 


(1+R) 


i-LPl 


To  determine  the  stockpile  maintenance  cost  contributed  by 
( SLPPC1-SLPNC1 ) ,  consider  Table  3*  Note  that  if  the  difference 
( SLPPC1-SLPNC1 )  is  negative,  the  stock  levels  contributed  are 
negative,  which  is  perfectly  reasonable,  since  these  are  only 
part  of  the  total  stocks. 


Table  3.  COLD  STOCKS  CONTRIBUTED  BY  ( SL PPC 1 -SL PNC  1  ) 


Time  Step 

Stock  Level 

1 

0 

2 

SL  PPC 1  -  SL  PNC  1 

3 

2 ( SLPPC1 -SLPNC 1  )  +  (1-DC1 ) (SLPPC1-SLPNC1  ) 

NPURCH 

fNPURCH-1  NPURCH-1 -  i 

(SLPPC1 -SLPNC1  )  £  i(l-DCl) 

_  i  =  l 
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Therefore,  the  unit  stockpile  maintenance  costs  are 


(26) 


NPURCH 

VC1  •  V  — - - r 

1=1  (1+R) 1 


l  j  ( 1-DC1 ) 1  1  J* 
_j=l 


so  that  the  total  unit  cost  associated  with  (SLPPC1-SLPNC1 )  is 


(27) 


<25>  +  <26> 


SLPPC2-SLPNC2 

An  analysis  similar  to  the  one  above  shows  the  unit  cost 
associated  with  (SLPPC2-SLPNC2 )  to  be 


(28) 


1-1 


NPURCH 

VPC2  .  £  — 

1=1  (1+R)  LI 2 


+ 


NPURCH  _ 
VC2  •  £  — - — 

i=l  (i+R) 


- i-i  i-l-j  " 

l  J ( 1-DC  2 ) 
v=l 


I BH1 

The  variables  describing  warm  capital  purchases  are  asso¬ 
ciated  with  the  following  costs. 

(1)  The  cost  of  purchasing  the  capital 

(2)  The  cost  of  transferring  capital  from  cold  to  warm 
stocks 

(3)  The  cost  of  maintaining  the  warm  stocks 

(4)  The  costs  of  ammunition  production 

(5)  The  costs  of  maintaining  the  ammunition  stockpile. 

To  determine  the  costs  contributed  by  IBW1 ,  first  consider 
Table  4.  The  unit  purchase  cost  associated  with  IBW1  is 
clearly 
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VPC1  • 


(29) 


(1+r)1-LCW1-LP1 


Note  that  the  time  required  to  transfer  the  capital  to  warm 
stocks  has  been  factored  into  the  discount  coefficient. 

The  unit  cost  of  the  cold  to  warm  transfer  is 


(30) 


VCW1  • 


(i+R)1-LCW1 


The  warm  stockpile  maintenance  unit  cost  can  be  deter¬ 
mined  from  Table  4  to  be 
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The  cost  per  unit  of  ammunition  production  contributed  by 
IBW1  is  given  by 
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Finally,  the  unit  cost  of  maintaining  the  component  of 
warm  stocks  contributed  by  IBW1  is 
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The  sum  of  these 
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<29>  +  <30>  +  <31>  +  <32>  +  <33> 


constitutes  the  total  unit  cost  associated  with  IBW1 
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I BW2 


The  same  logic  yields  the  unit  cost  associated  with  IBW2; 
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Consider  the  contributions  by  BW1  listed  in  Table  5 
Certainly,  the  unit  purchase  cost  is 


(36) 
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i-LCWl-LPl 


and  the  unit  transfer  cost  is 


(37) 
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Prom  Table  53  one  can  determine  the  unit  stock  maintenance 


to  be 
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and  the  unit  ammunition  production  cost  is 
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(39) 
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Finally,  the  unit  stockpile  maintenance  cost  associated 
with  BW1  is 


(40) 
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NPURCH 
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Thus  the  total  unit  cost  of  BW1  is 
(ill)  <36>  +  <37>  +  <38>  +  <39>  +  <40> 


BW2 


The  unit  cost  associated  with  BW2  is 
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SLPPM1 -SLPNW1 

Table  6  gives  the  progression  of  resources  contributed  over 
time  by  the  difference  ( SLPPW1-SLPNW1 ) . 

The  unit  purchase  cost  is  simply 
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(43) 
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1=1  (1+R) 


i-LCWl-LPl 


and  the  unit  transfer  cost  is  similarly 


(44) 


NPURCH 
VCW1  •  £ 


i-1 


i=l  (1+R) 
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From  Table  6,  one  can  determine  the  unit  stockpile  main¬ 
tenance  cost  to  be 


(45) 


NPURCH 
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while  the  unit  ammunition  production  cost  is 


(46) 
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Lastly,  the  unit  ammunition  stockpile  maintenance  cost 
contributed  by  (SLPPW1-SLPNW1)  is 


VQ  NPURCH  ,  i 

Hi  •  E  777771  •  l  (1-DS) 


i-1  (1+R)  j-1 


1  j  J  1  ^  I  If 
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The  total  unit  cost  associated  with  (SLPPW1-SLPNW1 )  is 
therefore 


(48) 


<43>  +  <  44>  +  <45>  +  <46>  +  <47> 
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SLPPW2  -  SLPNW2 


Finally,  the  total  unit  cost  associated  with  (SLPPW2- 
SLPNW2 )  is 
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It  should  be  noted  that  there  are  additional  costs  associ¬ 
ated  with  the  Build-up  period  that  do  not  depend  on  the  variable 
values.  These  are  the  costs  of  maintaining  the  original  cold 
and  warm  capital  stocks,  the  costs  of  ammunition  production  by 
the  original  warm  stocks,  and  the  cost  of  maintaining  the  origi¬ 
nal  ammunition  stockpile  as  well  as  that  produced  by  original 
warm  capital.  There  are  also  savings  to  be  considered  because 
ammunition  that  goes  to  satisfy  demand  during  this  period  need 
not  be  maintained.  These  costs  and  savings,  however,  are  fixed. 
They  depend  only  on  original  resource  levels  and  on  the  demand 
for  ammunition  during  the  Build-up  period;  therefore,  they  are 
explicitly  excluded  from  the  objective  function  of  the  S/PB  model. 


e .  Time  Delay  in  Capital  Acquisition 

So  far  we  have  described  the  Build-up  period  as  if  there 
were  no  time  delay  in  acquiring  capital.  For  most  problems 
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there  will  be  some  time  delay  which  we  denote  by  NLAG  and 
explicitly  define  as  the  initial  time  delay  from  the  decision 
to  buy  new  capital  to  the  time  it  can  first  produce.  This 
delay  may  be  different  from  the  time  delay  for  acquiring  capi¬ 
tal  during  the  Mobilization/War  period  which  will  be  discussed 
later.  The  general  effect  of  the  NLAG  delay  on  the  model  is 
that  during  the  first  NLAG  periods  of  the  Build-up  period  new 
capital  is  not  yet  available,  stocks  are  being  produced  by  the 
initial  warm  capital  and  consumed,  and  costs  are  accruing  due 
to  production  and  maintenance.  The  important  thing  to -realize 
is  that  these  factors  are  not  affected  by  anything  over  which 
we  have  a  choice  and  thus  are  not  part  of  the  mathematical 
programming  model  itself.  The  results  of  the  decision  to  buy 
new  capital  are  not  felt  until  time  period  NLAG+1 ,  when  new 
capital  first  arrives.  The  NLAG  period  does  affect  the  mathe¬ 
matical  programming  model  indirectly  by  determining  the  amount 
of  capital  and  stocks  at  time  NLAG+1.  The  .amount  of  stocks  at 
the  end  of  NLAG  periods  is  given  by  Equation  (l1!)  with  all 
variables  relating  to  capital  buys  set  to  zero. 

2 .  The  Steady-State  Period 

At  the  end  of  the  Build-up  period,  we  enter  the  Steady- 
state  period,  in  which  the  chief  actions  taken  are  those 
required  to  maintain  the  capital  and  ammunition  determined 
during  the  Build-up  period.  The  basic  unit  of  time  is  the 
time  step,  and  the  Steady-state  period  is  assumed  to  be  NSS 
time  steps  long.  NSS  is  allowed  to  be  zero,  by  which  the  user 
indicates  that  the  scenario  moves  directly  from  the  Build-up 
period  to  the  Mobilization/War  period. 

a .  Steady-State  Variables  and  Equations 

As  before,  we  assume  that  the  demand  for  ammunition  during 
this  period  is  constant  over  time,  that  no  hot  capital  appears. 


that  time  lags  appear  only  in  the  costs,  and  that  the  domestic 
and  in-theater  ammunition  stockpiles  are  essentially  indistin¬ 
guishable  . 

Among  the  variables  of  this  period  are 

ES  =  the  total  amount  of  ammunition  held  in  stockpiles 
during  this  period 

EC1  =  the  amount  of  type  1  cold  capital  held  during  this 
period 

EC2  =  the  amount  of  type  2  cold  capital  held  during  this 
period 

EW1  =  the  amount  of  type  1  warm  capital  held  during  this 
period 

EW2  =  the  amount  of  type  2  warm  capital  held  during  this 
period  . 

An  equation  that  must  obviously  hold  is 


ES  =  <14  > 


(50) 


that  is,  the  ammunition  held  during  this  period  is  equal  to 
that  acquired  during  the  Build-up  period.  In  order  for  this 
to  be  constant  over  the  period,  it  must  be  true  that 


(51) 


where 


SSDEM  =  the  demand  for  ammunition  per  time  step  during 
the  Steady-state  period. 


Equation  (51)  is  a  statement  that  the  total  production,  per 
time  step,  is  precisely  that  necessary  to  meet  demand  and  to  re¬ 
place  the  ammunition  that  has  deteriorated  during  each  previous 
time  step.  In  case  NSS  =  0,  there  will  be  no  demand  or  deteri¬ 
oration  and  this  equation  will  not  appear  in  the  model. 

Because  this  period  is  a  peacetime  period,  we  must  ensure 
that  the  amount  of  warm  capital  acquired  during  the  Build-up 
period  is  sufficient  to  maintain  the  stockpile  level.  Therefore, 
when  NSS  >  0,  we  require  that 
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(52) 

EW1  <  <12> 

and 

(53) 

EW2  <  <13 >  • 

Note  that  this  implies  that  cold  capital  acquired  during  the 
Build-up  period  is  acquired  solely  for  the  needs  of  the  Mobiliza¬ 
tion/War  period.  In  other  words,  the  preparation  during  the 
Build-up  period  must  take  the  Steady-state  period  into  account. 

When  NSS  =  0,  we  replace  (52)  and  (53)  by 

(54)  EW1  =  <12> 

(55)  EW2  =  <13> 

in  order  to  tie  together  the  Build-up  and  the  Mobilization/War 
periods . 

In  general,  more  capital  will  be  in  warm  stocks  at  the  end 
of  the  Build-up  period  than  will  be  required  during  the  Steady- 
state  period.  The  excess  warm  stocks  are  put  into  cold  stocks 
for  future  use: 

(56)  EC1  +  EW1  =  <10>  +  <12> 

(57)  EC2  +  EW2  =  <11>  +  <13 >  • 

To  permit  the  model  to  enter  the  Mobilizat ion/War  period 
with  distinct  domestic  and  in-theater  ammunition  stockpiles, 
we  perform,  during  this  period,  what  we  shall  call  the  preposi¬ 
tioning  of  ammunition  through  the  use  of  the  following  variable. 

EPREP  =  the  amount  of  ammunition  explicitly  prepositioned 
into  the  in-theater  stockpile  during  the  Steady- 
state  period. 

The  only  structural  constraint  on  this  prepositioning  is 

(58)  EPREP  <  ES  ; 

that  is,  one  cannot  preposition  more  ammunition  than  one  has. 
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stockpile 


The  amount  of  ammunition  remaining  in  the  domestic 
is  then 

(59)  ES  -  EPREP • 


b .  Costs 

The  costs  of  this  period  include  those  of  explicit  activi¬ 
ties,  such  as  ammunition  production,  as  well  as  those  of  implicit 
activities,  such  as  the  purchase  of  capital  to  replace  that  which 
deteriorates.  The  unit  costs  associated  with  each  variable  of 
the  Steady-state  period  are  as  follows. 


EC1 

The  maintenance  cost  of  one  unit  of  EC1  throughout  the 
Steady-state  period  is  clearly 


(60) 


VC1  • 


NSS 

E 


i=l 


(1+R) 


1 

i+NPURCH  ‘ 


The  NPURCH  term  in  the  exponent  of  the  denominator 
represents  the  fact  that  the  first  time  step  of  the  Steady- 
state  period  is  time  step  t  =  NPURCH  +  1. 

Because  type  1  cold  capital  deteriorates  by  an  amount 
EC1  •  DC1  during  each  time  step,  we  must  include  the  cost  of 
purchasing  capital  to  maintain  the  type  1  cold  capital  stocks 
at  an  even  level.  This  cost,  per  unit  of  EC1,  is 


(61) 


VPC1  •  DC1 


NSS 
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Z_- 
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_ 1 _ 
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so  that  the  total  unit  cost  associated  with  EC1  is 


<60>  +  <6l>  . 


(62) 


EC2 


In  a  like  manner,  the  unit  cost  of  EC2  is 

✓  NSS  ,  \  /  NSS  1 

(63)  ^VC2  •  (i+R)i+NPUECli]+yPG2  '  002  '  ^  (1+R)i-LP2+NPURCHi 

EMI 

The  cost  associated  with  Steady-state  warm  capital 
comprises 

(1)  the  purchase  of  replacement  capital  to  correct 
deterioration 

(2)  the  cost  of  transferring  that  capital  to  warm 
stocks 

(3)  the  cost  of  maintaining  the  warm  stocks,  and 

(4)  the  cost  of  producing  ammunition. 

In  order,  these  unit  costs  are,  for  type  1  capital 


NSS 
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•  Z-. 
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The  total  unit  cost  of  EW1  is  then 

(67)  <63>  +  <64>  +  <.65)>  +  <.66>  . 
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EW2 


The  total  unit  cost  for  type  2  warm  capital  during  the 
Steady-state  period  is 
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i=l  ( 1+p) 1-LCW2-LP2+NPURCH 

+  VCW2 

•  DW2 

NSS 

•  T  1 

i=l  (l+R)i_LCW2+NPURCH 

+  VW2  • 

NSS 

T  • 

i=l 

1 

(1+R)i+NPURCH 

VPW2  N^LS 

+  T777*-  •  £ 


KK2  A  (1+R)1+NPURCH 


ES 

The  cost  of  maintaining  the  Steadi-state  stockpile,  per 
unit,  is 


(69) 


NSS 

VS  •  £ 


i=l  (l+R) 


i+MPURCH  • 


EPREP 

We  assume,  for  costing  purposes,  that  the  prepositioned 
stocks  are  separated  from  the  ammunition  stockpile  during  the 
last  time  step  of  the  Steady-state  period.  The  user  must 
assess  this  one-time  cost  and  supply  it  as  the  parameter 
VPREP  which  is  then  discounted.  The  unit  cost  associated  with 
the  variable  EPREP  is  therefore 


(70) 


VPREP  • 


1 

NSS+NPURCH 


(l+R) 
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3. 


Mobilization/War  Period 


The  Mobilization/War  period,  which  is  assumed  to  last  ISTEP 
time  steps,  follows  the  Steady-state  period,  except  when  NSS  =  0, 
which  places  the  Mobilization/War  period  directly  after  the 
Build-up  period  (although  the  Steady-state  variables  still  appear 
in  the  model) . 

The  structural  equations  of  this  period  closely  resemble 
the  core  model — this  period  is  explicitly  time  stepped — except 
that  those  pertaining  to  the  earlier  time  steps  of  this  period 
are  modified  to  provide  the  interface  with  the  previous  two 
periods.  In  particular,  stock  and  stockpile  levels  at  the 
start  of  this  period  must  reflect  the  levels  at  the  end  of  the 
Steady-state  period  and  also  the  transfer  variables  in  the 
initial  stages  of  this  period  must  be  set  to  appropriate  values. 

As  with  the  core  model,  each  of  the  following  equations  represents 
a  sequence  of  equations  as  t  ranges  from  1  to  ISTEP. 

a .  Cold  Capital  Stocks 


(71)  Cl(t)  =  <a>  •  (1-DC1)  +  <b>  +  <c>  +  <d>  -  TCHL(t)  -  TCWl(t) 


where 


EC1 


if  t  =  1 


<a> 


Cl(t-l)  if  t  >  2 


EC1  •  DC1  +  EW1  •  DW1  if  1  -  NSS  <  t  -  LP1  <  0 


<b>  =  PCl(t-LPl) 
0 


if  t  -  LP1  >  1 


if  t  -  LP1  <  1  -  NSS 


TWC1 ( t-LWCl ) 


if  t  -  LWC1  >  1 


<c> 


0 


if  t  -  LWC1  <  0 
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<d>  = 


THC1 (t-LHCl ) 
0 


if  t  -  LHC1  >  1 


if  t 


LHC1  <  0  . 


The  expressions  <a>,  <b>,  <c>,  and  <d>  constitute  the  inter¬ 
face  between  the  type  1  cold  capital  equations  of  the  Mobilization/ 
War  period  and  the  previous  periods.  These  terms  reflect  both 
the  explicit  activities  of  these  periods  as  well  as  implicit 
ones . 

Expression  <a>  brings  the  type  1  cold  capital  accrued  during 
the  first  two  periods  into  the  Mobilization/War  period.  For 
time  steps  t  >_  2,  this  term  reflects  the  cold  capital  of  the 
previous  time  step,  which  is  then  adjusted  for  deterioration. 
However,  when  t=l,  the  previous  type  1  cold  capital  is  that  in 
the  Steady-state  period  and  hence  < a>  is  set  to  EC1. 

Expression  < b>  reflects  purchases  of  type  1  capital.  When 
t  -  LP1  >_  1,  these  purchases  are  those  that  have  been  generated 
earlier  in  the  Mobilization/War  period  which  are  only  presently 
entering  cold  stocks.  If  t  -  LP1  <  1  -  NSS,  then  the  time 
lag  combined  with  the  time  step  is  such  that  the  purchases  enter¬ 
ing  cold  stocks  at  this  time  step  t  would  have  had  to  have  been 
purchased  during  the  Build-up  period.  We  have  assumed,  however, 
that  purchases  during  that  period  entered  cold  stocks  immediately 
and  hence  have  already  been  accounted  for.  Therefore,  we  set 
<b  >  =  0.  For  1  -  NSS  <  t  -  LP1  <_  0,  the  purchases  are  those 
that  would  have  had  to  be  purchased  during  the  Steady-state 
period.  Recall  that  Steady-state  purchases  are  implicit 
activities;  that  is,  their  costs  are  accounted  for  but  there 
is  no  Steady-state  variable  corresponding  to  purchases  of 
capital.  Rather,  we  have  assumed  that  the  purchases  during 
the  Steady-state  period  are  precisely  what  is  needed  to  maintain 
capital  stock  levels.  This  is  clearly  EC1  •  DC1  +  EW1  •  DW1 
units  of  capital  per  time  step,  which  we  allow  to  be  brought 
forward  into  the  Mobilisation/War  period.  In  this  way  continuity 
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is  provided  between  the  Steady-state  and  Mobilization/War 
periods . 

Expression  <c>  represents  warm  to  cold  transfer  of  type  1 
capital.  Because  we  have  assumed  that  the  only  such  transfer 
prior  to  the  Mobilization/War  period  is  that  at  the  end  of  the 
Build-up  period,  which  has  already  been  explicitly  included  in 
the  values  of  the  Steady-state  variables,  for  all  time  steps  t 
for  which  t  -  LCW1  <_  0 ,  we  set  <c>  =  0.  For  those  values  of  t 
for  which  t  -  LCW1  _>  1,  this  transfer  occurs  entirely  within  the 
Mobilization/War  period  and  so  <c>  =  TWCl(t-LWCl) . 

Expression  <d>  stands  for  hot  to  cold  transfer  of  type  1 
capital.  Because  we  have  assumed  that  there  is  no  hot  capital 
prior  to  the  Mobilization/War  period,  <d>  must  clearly  equal  0 
if  t  -  LHC1  _<  0.  For  all  other  time  steps  t,  <d>  =  THC1  ( t-LHCl )  . 

For  type  2  cold  stocks,  the  representative  equation  is 
(72)  C2(t)  =  <a  >  •  (1-DC2)  +  <  b>  +  <c>+  <d>  -  TCH2(t)  -  TCW2(t) 

where 

<a>  =  '  EC2  if  t  =  1 

<  C2 (t-1 )  if  t  >  2 


EC  2  •  DC  2  +  EW2  •  DW2 

if 

1 

-  NSS  <  t  - 

LP2  <  0 

<b>  = 

PC2 (t-LP2 ) 

if 

t 

-  LP2  >_  1 

0 

if 

t 

-  LP2  <  1  - 

NSS 

|  TWC  2 ( t -LWC2 ) 

if 

t 

-  LWC2  >  1 

<c>  =  | 

!  0 

if 

t 

-  LWC2  <  0 

(  THC2 (t-LHC 2 ) 

if 

t 

-  LHC 2  >  1 

<d>  = 

0 

if 

t 

-  LHC 2  <  0 
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b .  Warm  Capital  Stocks 


For  type  1  warm  capital  stocks,  the  appropriate  equation  is 
(73)  Wl(t)  =  <a>  •  (1-EW1)  +  <b>  +  <c>  -  TWCl(t)  -  TWHl(t) 
where 

.  .  \  EW1  if  t  =  1 

<a>  = 

(  Wl(t-l)  if  t  >  2 


DW1  -  EW1 

if 

1 

-  NSS  <  t  - 

LCW1 

<b>  = 

TCW1 (t-LCWl) 

if 

t 

-  LCW1  >_  1 

0 

if 

t 

-  LCW1  <  1 

-  NSS 

l THWl(t-LHWl) 

if 

t 

-  LHW1  >  1 

<c>  = 

lo 

if 

t 

-  LHW1  <  0 

The  expression  <a>  brings  the  Steady-state  type  1  warm 
capital  into  the  Mobilization/War  period  during  time  step  t=l. 
For  later  time  steps,  <a>  represents  the  carry-over  of  the  pre¬ 
vious  time  step's  warm  capital. 

Expression  <b>  stands  for  cold  to  warm  capital  transfer. 

If  t  -  LCW1  1)  then  the  entire  transfer  occurs  during  the 
Mobilization/War  period  and  <b>  =  TCW1 ( t-LCWl ) .  If 
t  -  LCW1  <  1  -  NSS,  the  transfer  would  have  had  to  originate  in 
the  Build-up  period,  during  which,  we  have  assumed,  there  are  no 
such  transfers.  Therefore,  in  this  case,  < b>  =  0 .  If 
1  -  NSS  £  t  -  LCW1  <_  0 ,  we  set  <  b>  equal  to  the  implicit  cold  to 
warm  transfer  during  the  Steady-state  period  which  is  the 
EW1  •  DW1  units  per  time  step  that  were  needed  to  correct  for 
deterioration . 

Expression  <c>  represents  hot  to  warm  capital  transfer. 
Prior  to  the  Mobilization/War  period,  there  are  no  hot  capital 
stocks  and  so  <c>  =  0  if  t  -  LHW1  <_  0.  Otherwise, 

<c>  =  THW1  ( t-LIJWl)  . 
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Type  2  warm  capital  stocks  are  described  by  Equation  (7*0. 


(74)  W2(t)  =  <a>  •  (1-DW2)  +  <b>  +  <c>  -  TWC2(t)  -  TWH2(t) 

where 


( 

EW2  if  t 

=  1 

<a>=| 

*W2(t-l)  If  t 

>  2 

DW2  •  EW2 

If 

1 

-  NSS  <  t  - 

LCW2  < 

<b>  = 

TCW2 (t -LCW2 ) 

If 

t 

-  LCW2  >  1 

0 

If 

t 

-  LCW2  <  1 

-  NSS 

i 

[ THW2(t-LHW2) 

If 

t 

-  LHW2  >  1 

<c>  =  • 

0 

if 

t 

-  LHW1  <  0 

c .  Hot  Capital  Stocks 

The  type  1  hot  capital  stocks  are  modelled  by  the  following 
equation : 


(75)  Hl(t)  =  <a>  •  ( 1-DH1 )  +  <b>  +  < c >  -  THCl(t)  -  THWl(t) 


where 

<a> 


j  Hl(t-l) 

I  o 


if  t  >  2 
if  t  =  1 


( TCHl(t-LCHl) 

<b>  =  J  0 


If  t  -  LCH1  >  1 
if  t  -  LCH1  <  0 


(  TWH1 ( t-LWHl ) 

<c>  =  j  0 


if  t  -  LWH1  >  1 
if  t  -  LWH1  <  0 


Expression  <a>,  the  hot  capital  carry-over,  must  clearly 
be  zero  when  t  =  l.  For  t  2 ,  <a>  is  simply  Hl(t-l).  Expres¬ 
sions  <b>  and  <c>  represent,  respectively,  the  type  1  cold-to- 
hot  and  warm-to-hot  capital  transfers.  Because  there  is  no  hot 
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capital  prior  to  the  Mobilization/War  period,  we  permit  no 
transfers  to  hot  capital  to  originate  during  previous  periods. 
Therefore,  these  are  zero  when  t  -  LCH1  and  t  -  LWH1,  respec¬ 
tively,  are  less  than  or  equal  to  zero.  Otherwise 
<b  >  =  TCHl(t-LCHl)  and  <c>  =  TWH1 (t-LWHl ) . 


The  corresponding  equation  for  type  2  hot  capital  is: 
(76)  H2(t )  =  <a>  •  ( 1-DH2 )  +  <b>  +  <c>  -  THC2(t)  -  THW2(t) 

where 


<a> 


H2 ( t-1 )  if  t  >  2 
0  if  t  =  1 


<b>  = 


TCH2 (t -LCH2 )  if  t  -  LCH2  >  1 

0  if  t  -  LCH2  <  0 


<c>  = 


TWH2 (t-LWH2 )  if  t  -  LWH2  >  1 

0  if  t  -  LWH2  <  0 


d .  Ammunition  Stockpile 


The  interfaces  for  the  domestic  and  in-theater  stockpiles 
include  the  prepositioning  of  ammunition  that  occurred  during 
the  Steady-state  interval.  The  ammunition  stockpile  equations 
are : 


(77)  S(t)  =  <a> 


Wl(t)  W2(t)  ,  HI ( t )  H2(t) 

KW1  KW2  KHl  KH2 


♦  £ 

t-LWHl<S<t 

s>l 


TWH1 ( s ) 
KW1 


t-LWH2<s<t 

s>l 


TWH2 ( s ) 
KW2 


-  DD(t )  -  PIPE(t) 


(78)  SP(t)  =  <b>  •  (1-DSP)  +  <c>  -  FD(t ) 
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where 


\ 

ES  -  EPREP 

if 

t 

= 

1 

<a>  =  j 

S(t-l) 

if 

t 

> 

2 

i 

[  EPREP 

if 

t 

= 

1 

<b>  =  • 

|  SP(t-l) 

if 

t 

> 

2 

<c>  = 

j  PIPE ( t -LPIPE ) 

if 

t 

LPIPE  >  1 

<  0 

if 

t 

_ 

LPIPE  <  0 

Expressions  <a>  and  <b>  demonstrate  how  prepositioned 
ammunition  is  removed  from  the  domestic  stockpile  and  placed  in 
the  in-theater  stockpile  by  the  beginning  of  the  Mobilization/ 

War  period. 

Expression  <c>  is  zero  if  t  -  LPIPE  £  0  since  we  have 
assumed  no  distinction  between  the  stockpiles,  and  hence  no 
pipeline,  prior  to  the  Mobilization/War  period. 

e .  Costs 

The  Mobilization/War  period  costs  closely  resemble  the  costs 
of  the  core  model.  They  differ  in  that  the  discount  factor  must 
include  the  previous  two  periods  and  in  that  salvage  values  of 
ammunition  held  at  the  end  of  the  war  are  permitted.  This,  is 
accomplished  by  providing  two  additional  cost  parameters: 

VSSALV  =  the  cost  of  holding  one  unit  of  ammunition  in 
the  domestic  stockpile  during  the  final  time 
step  of  the  Mobilization/War  period  (if  negative, 
this  represents  salvage  value). 

VSPALV  =  the  cost  of  holding  one  unit  of  ammunition  in  the 
in-theater  stockpile  during  the  final  time  step 
of  the  Mobilization/War  period  (if  negative,  this 
represents  salvage  value). 

The  cost  of  each  activity  of  the  Mobilization/War  period  is 
listed  in  Table  7-  Note  that  the  S/PB  model  provides  only  ISTEP-1 
variables  to  describe  transfers  of  assets.  To  provide  more  would 
only  permit  the  model  to  transfer  assets  beyond  the  end  of  the 
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Table  7.  MOB  I L I ZAT I  ON/ WAR  PERIOD  COSTS 


Variable 

Unit  Cost 

Applicable 

Time  Steps 

PCI (t) 

VPCl/(l+R)t+NSS+NPURCH 

t=l , . . 

..ISTEP 

PC2(t) 

VPC2/(HR)t+NSS+NPURCH 

t-1... 

..ISTEP 

Cl  (t) 

VC1 /( l+R)t+NSS+NPURCH 

t-1... 

ISTEP 

C2(t) 

VC2/(l+R)t+NSS+NPURCH 

t-1... 

ISTEP 

wi(t) 

VWl/(l+R)t+NSS+NPURCH 

t-1... 

ISTEP 

Wl(t)/KWl 

VPWl/(l*R)t+NSS+NPURCH 

t-1... 

..ISTEP 

W2(t) 

VW2/(l+R)t+NSS+NPURCH 

..ISTEP 

W2(t)/KWl 

VPW2/(l*R)t+NSS+NPURCH 

t-1 ... . 

ISTEP 

HI  (t ) 

VHl/(l+R)t+NSS+NPURCH 

t-1,... 

. .ISTEP 

HI  (t)/KHl 

VPHl/(l+R)t+NSS+NPURCH 

t-1,... 

. .ISTEP 

H2(t) 

VH2/(l+R)t+NSS+NPURCH 

t-1,... 

..ISTEP 

H2(t)/KH2 

VPH2/(l+R)t+NSS+NPURCH 

t-1,... 

. .ISTEP 

VS/(l+R)t+NSS+NPURCH 

t=l,... 

. , ISTEP-1 

s(t) 

VSSALV/(l+f^ISTEP+NSS+NPURCH 

t= 

ISTEP 

SP(t) 

VSP/(l+R)t+NSS+NPURCH 

t-1,... 

ISTEP-1 

vspalv/(hr)istep+nss+npurch 

t= 

ISTEP 

PIPE(t) 

VPIPE/(l+R)t+NSS+NPURCH 

t-1,... 

ISTEP-1 

TCWl(t) 

VCWl/(l+R)t+NSS+NPURCH 

t-1,... 

, ISTEP-1 

TCW2(t) 

VCW2/(l+R)t+NSS+NPURCH 

t-1,... 

. ,  ISTEP-1 

TWH1 (t) 

VWH 1 / ( 1 +R ) t+N ss+npurch; 

t-1,... 

, ISTEP-1 

CT1/PW1  1  LrH1 

1 

KW1  (1+R)t+NSS+NPURCH  ^ 

n+R)1"1 

•TWH2(t) 

VWH2/M+R)t+NSS+NPUR£!i7 

t-1,... 

, ISTEP-1 

C^TVPW2  1  L^H2 

1 

KW2  ( "l  +R )  t+NSS+NPURCH 

(1+R)1'1 

(continued) 
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Tabl e  7 .  (concl uded ) 


Variable 

Unit  Cost 

Applicable 

Time  Steps 

TWCl(t) 

VWCl/(l+R)t+NSS+NPURCH 

t-1,. 

.., ISTEP-1 

TWC2(t) 

VWC2/(l+R)t+NSS+NPURCH 

t=l,. 

.., ISTEP-1 

THCl(t) 

VHCl/(l+R)t+NSS+NPURCH 

t-1,. 

.., ISTEP-1 

THC2(t) 

VHC2/(l+R)t+NSS+NPURCH 

t=l , . 

.., ISTEP-1 

THW1 (t) 

VHWl/(l+R)t+NSS+NPURCH 

t-1,. 

. ., ISTEP-1 

THW2(t) 

VHW2/  ( 1 +R )' t+NSS+NPURCH 

t-1,. 

.., ISTEP-1 

final  time  step.  _  As  with  the  core  model,  warm  and  hot  stocks 
have  two  associated  costs — maintenance  and  ammunition  production. 

The  total  cost  of  the  Mobilization/War  period  is,  therefore. 


(77) 


ISTEP 

E 


t=i 


i 

,,  t+NSS+NPURCH 

(,1+KJ 


PCl(t)-VPCl  +  PC2 ( t ) • VPC2 


+  Cl(t)-VCl  +  C2 ( t ) • VC2  +  Wl(t)-(VW1  + 


VPWlx 
KW1  J 


+  W2  ( t )  •  ( VW2  +  +  HI  ( t )  •  ( VH1  +  Hip-) 


+  H2(t )  •  (VH2  + 


KH2 


ISTEP-1 

+  E 


t=l  (l+R) 


t+NSS+NPURCH 


S(t) -VS  +  SP(t ) -VSP 


+  PIPE ( t ) • VPIPE  +  TCW1 ( t ) • VCW1  +  TCW2 (t ) • VCW2  +  TCHl(t)-VCHl 

(  vpw1  LWH1 

+  TCH2  ( t )  •  VCH2  +  TWH1  (t )  •  {VWHl  +  ’  l 


KW1  i=l  ( l+R ) 1-1 


+  TWH2  (t )  •  |  VWH2  +  •  l 


LWH2 


KW2  i=l  (l+R)1  1 
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+  TWC1 (t ) * VWC1  +  TWC2 ( t ) •  VWC2 
+  THC1 ( t ) • VHC1  +  THC2 ( t ) • VHC2  +  THWl(t)-VHWl 
+  THW2(t) -VHW2! 


+  S  ( I  STEP)  • 


VSSALV 

(i+r)istep+nss+npurch 


+  SP(ISTEP) 


VSPALV 

(1+R)ISTEP+NSS+NPURCH  ’ 


We  will  note  at  this  juncture  that  the  objective  function 
of  the  S/PB  model  is  the  sum  of  the  costs  of  the  three  periods, 
although,  as  we  will  see  in  Chapter  III,  the  model  provides  the 
user  the  option  of  applying  multipliers  to  wartime  costs.  In 
particular,  these  multipliers  may  equal  zero,  allowing  one  to 
include  only  peacetime  costs  in  the  objective  function. 


E.  ADDITIONAL  CONSTRAINTS 

Although  the  equations  described  above  are  sufficient  to 
specify  the  S/PB  model,  certain  constraints  have  been  added  to 
allow  the  user  increased  flexibility  when  experimenting  with  the 
model.  These  additional  constraints  fall  into  three  general 
classes.  The  first  class  imposes  upper  bounds  on  certain  activ¬ 
ities.  The  second  class  limits  the  strategies  available  to 
the  model  with  which  to  acquire  and  dispose  of  resources.  The 
final  class  comprises  budget  constraints. 

1 .  Upper  Bounds 

The  upper  bounds  are  imposed  on  the  activities  relating  to 
the  in-theater  stockpile,  in  particular  on  the  variables  EPREP, 
SP(t),  t  =  1,  ...,  ISTEP,  and  PIPE(t),  t  =  1,  ...,  I3TEP.  These 

constraints  take  the  forms: 

(77)  EPREP  £  UBPREP 

(79)  SP(t)  <  UBSP(t)  t  =  1,  ...,  ISTEP 

(80)  PIPE  (t )  <  UBPIPE(t)  t  =  1,  . 


where 
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*  *  3 


ISTEP  -  1 


UBPREP  -  the  maximum  amount  of  ammunition  that  can  be 
prepositioned  into  the  in-theater  stockpile 

UBSP(t)  =  the  maximum  amount  of  ammunition  that  can  be 
held  in  the  in-theater  stockpile  during  time 
step  t 

UBPIPE(t)  =  the  maximum  amount  of  ammunition  that  can  be 

transferred  from  the  domestic  to  the  in-theater 
stockpile  beginning  at  time  step  t. 

The  parameters  are  input  by  the  user  and  might  represent 
limits  on  in-theater  storage  capability  or  limits  of  the  ability 
of  airlift  and/or  sealift  to  transport  ammunition. 

2 .  Strategic  Constraints 

The  strategic  constraints  are  characterized  by  the  user's 
ability  to  include  or  delete  them  from  the  model  at  will.  There 
fore,  these  constraints  only  appear  if  the  user  so  desires. 

The  first  such  constraint  is  actually  a  set  of  three  in¬ 
equalities  specifying  the  minimum  levels  of  production  and  of 
the  stockpiles  that  must  be  maintained  during  the  final  time 
step  of  the  Mobilization/War  period.  Such  constraints  might  be 
useful  as  a  proxy  for  a  protracted  war  that  extended  beyond  the 
explicitly  modelled  period.  These  equations  take  the  form: 

( 8 1 )  S(ISTEP)  >  ENDS 

(82)  SP(ISTEP)  >  ENDSP 

Wl(ISTEP)  W2 ( ISTEP ) 

^  KW1  KW2 

where 

ENDS  =  the  amount  of  ammunition  that  must  be  held  in  the 
domestic  stockpile  during  the  final  time  step 

ENDSP  =  the  amount  of  ammunition  that  must  be  held  in  the 
in-theater  stockpile  during  the  final  time  step 

ENDPRD  =  the  level  of  ammunition  production  to  be  achieved 
during  the  final  time  step.  Note  that  production 
from  capital  transferring  from  warm  to  hot  states 
is  not  included  in  this  constraint. 


HI ( ISTEP ) 

KH1 


H2( ISTEP) 

KH2 


>  ENDPRD 
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In  order  to  examine  "rules  of  thumb"  wherein  the  proper 
stockpile/production  base  mix  is  given  by  a  simple  ratio,  the 
user  may  invoke  constraint  (84) 


(84) 

EC1  +  EC2  +  EW1  +  EW2  =  ES  •  RATIO 

where 

RATIO  =  the  user-specified  ratio  of  total  capital  to  total 
stockpile  to  be  achieved  by  the  end  of  the  Build¬ 
up  period. 

A  final  set  of  constraints  allows  the  user  to  restrict  the 
families  of  purchase  patterns,  particularly  those  of  warm  capi¬ 
tal,  during  the  Build-up  period.  These  are  as  follows:. 


(85) 

IBW1  +  IBW2  =  0 

(86) 

BW1  +  BW2  =  0 

(87) 

SLPPC1  -  SLPNC1  =  SL0PC1 

(88) 

SLPPC2  -  SLPNC2  =  SL0PC2 

(89) 

SLPPW1  -  SLPNW1  =  SL0PW1 

(90) 

SLPPW2  -  SLPNW2  =  SL0PW2 

where 


SL0PC1  = 

the  slope  desired  by  the  user  for  the  type  1  cold 
capital  purchase  pattern 

SL0PC2  = 

the  slope  desired  by  the  user  for  the  type  2  cold 
capital  purchase  pattern 

SL0PW1  = 

the  slope  desired  by  the  user  for  the  linear 
component  of  the  type  1  warm  capital  purchase 
pattern . 

SL0PW2  = 

the  slope  desired  by  the  user  for  the  linear 
component  of  the  type  2  warm  capital  purchase 
patt  ern . 

Equations ( 87 )  through  (90)  must  be  invoked  as  a  group. 
One  should  also  note  that  the  nonnegativity  of  the  variables 
requires  that  if  constraint  (85)  is  invoked,  both  IBW1  and 
IBW2  must  necessarily  be  zero.  The  same  logic  applies  to 
constraint  (86). 
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3. 


Budget  Constraints 

The  budget  constraints  impose  limits  on  the  undiscounted 
costs  that  are  incurred  by  the  acquisition  of  capital  and  the 
production  of  ammunition.  Costs  associated  with  other  activities 
are  not  included.  Single  constraints  apply  to  the  Build-up  and 
Steady-state  periods  while  each  time  step  of  the  Mobilization/ 

War  period  has  its  associated  budget  constraints. 

a .  Build-Up  Period 

By  removing  the  discounting  factors  from  those  costs  of  the 
Build-up  period  that  pertain  to  capital  acquisition  and  ammunition 
production,  we.  obtain  the  budget  constraint  for  this  period. 

(91)  BC1  •  (VPC1-NPURCH)  +  BC2  •  (VPC2-NPURCH) 


NFURCH 


NPURCH 


+  IBW1 


VFW1 

KW1 


NPURCH  i 


unun  _L 

E  l  ( l-DWl ) 
i=l  j=l 


VPC1- NPURCH  + 


VFW2 

KW2 


NPURCH  i 


un  ±  • 

E  l  (1-DW2)J  1 

i=l  j=l 


+  BW2  •  l  VPC2. NPURCH  + 


VPW1 

KW1 


NPURCH  i-1 


i-1 


+  [ SLPPW1-SLPNW1 ] 


VPW2 

KW2 


NPURCH  i-1 


i-1 


+  [SLPFW2-SLPNW2] 


<  BPBUDG 
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where 


BPBUDG  =  the  user-supplied  limit  on  the  Build-up  period 

capital  purchase  and  ammunition  production  costs 
(undiscounted ) . 


b .  Steady-State  Period 

In  like  manner,  we  determine  the  Steady-state  period  budget 
constraint  to  be 

(92)  EC1  •  (VPC1 • DC1 • NSS )  +  EC 2  •  ( VPC 2 • DC2 • NSS ) 

+  EW1  •  (VPCl-DWl-NSS+J5r^-NSS) 

KW1  ' 

+  EW2  •  (VPC2*DW2*NSS+^7^.NSS) 

KW2 

<  EBUDG 


where 


EBUDG  -  the  user-supplied  limit  on  the  Steady-state  period 
capital  purchase  and  ammunition  production  costs 
(undiscounted) . 


c  .  Mo b i  1  i z a t i o n / Wa  r  Period 

For  each  time  step  t  of  the  Mobilization/War  period,  there 
is  a  budget  constraint  of  the  following  form: 


(93)  PCl(t)  •  VPC1  +  PC2 (t )  •  VPC2 


+  Wl(t) 

'  In  +  ' 

VPW2 

KW2 

+  HI ( t ) 

'  k™1  +  H2C>  ' 

VPH2 

KW2 

VPW1 
KW1  * 

23  ™H1 ( 3 )  + 

VPW2 

KW2 

23  TWH2 ( s ) 

t-LWHl<s<t 

t-LWH2<s<t 

S>1  ~~ 

S>1 

£  BUDG(t) 
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where 


BUDG(t)  =  the  user-supplied  limit  on  the  undiscounted 

costs  of  capital  purchase  and  ammunition  pro¬ 
duction  applying  to  time  step  t. 

F.  MODEL  SUMMARY 

For  completeness,  we  restate  in  this  section  the  variables, 
the  objective  function,  and  constraints  of  the  S/PB  model. 
Although,  as  before,  we  use  numbers  in  bent  brackets  (<•>)  to 
represent  constraints  and  expressions,  the  reader  may,  if  he 
so  chooses,  substitute  the  terms  so  represented  by  the  numbers 
and  write  down  the  model  explicitly.  We  adopt  this  approach 
to  save  space. 

The  constraints  are  given  in  the  order  in  which  they  have 
been  programmed  into  the  computer  implementation  of  this  model. 
This  order  is  arbitrary.  Recall  that  ISTEP  is  the  number  of 
time  steps  in  the  Mobilization/War  period. 

Variabl es 

The  variables  of  the  S/PB  model  are: 


BC1 

SLPPW1 

BC  2 

SLPNW1 

SLPPC1 

SLPPW2 

SL  PNC  1 

SLPNW2 

SLPPC2 

EC1 

SL  PNC  2 

EC2 

I  BW1 

EW1 

I  BW2 

EW2 

BW1 

ES 

BW2 

EPREP 

(continued  on  next  page) 
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Cl  (t) 

t 

= 

1  , 

•••  9 

ISTEP 

C  2  ( t ) 

t 

= 

1  , 

...  9 

ISTEP 

wi  (t) 

t 

= 

1  , 

...  9 

ISTEP 

W2(t) 

t 

= 

1  , 

•  •  •  9 

ISTEP 

HI  ( t ) 

t 

= 

1  , 

•  •  •  9 

ISTEP 

H2(t) 

t 

= 

1  , 

...  9 

ISTEP 

s(t) 

t 

= 

1  , 

...  9 

ISTEP 

SP(t) 

t 

= 

1  , 

...  9 

ISTEP 

TCW1  (t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TCW2 ( t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TCH1 (t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TCH2(t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TWH 1 (t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TWH2 ( t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

TWC 1 (t) 

t 

= 

1  , 

•  •  •  9 

ISTEP  - 

1 

TWC2 ( t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

THC1 (t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

THC2 ( t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

THW 1 (t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

THW2 ( t ) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

PIPE(t) 

t 

= 

1  , 

...  9 

ISTEP  - 

1 

Objective  Function 

( 9^ )  Minimize 

(over  all  variables) 

|BC1  •  <23>  +  BC2  •  <2 4>  +  ( SLPPC1-SLPNC1 )  •  <27> 


+  (SLPPC2-SLPNC2 )  •  <28)  +  IBW1  •  <3^>  +  IBW2  •  <35> 
+  BW1  •  <4l>  +  BW2  •  <42>  +  ( SLPPW1-SLPNW1 )  •  <48> 


+  (SLPPW2-SLPNW2 )  •  <^9>  +  EC1  •  <62>  +  EC2  •  <63> 

+  EW1  •  <67  >  +  EW2  •  <  68>  +  ES  •  <69>  +  EPREP  •  <70>  +  <77>| 
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subject  to: 


Warm  Capital  Acquisition 

(95)  <52> 

(96)  <53> 

Capital  Conservation  from  Build-up  through  Steady-state 

(97)  <56> 

(98)  <  57> 

Ammunition  Acquisition 

(99)  <50> 

Satisfaction  of  Build-up  Period  Demand 

(100)  <19> 

(101)  <20> 

Prepositioning  Limitation 

(102)  <58> 

Prepositioning  Upper  Bound 

(103)  <78> 

Mobilization/War  Cold  Stocks 

(104)  <71>  (ISTEP  equations) 

(105)  <72>  (ISTEP  equations) 

Mobilization/War  Warm  Stocks 

(106)  <73>  (ISTEP  equations) 

(107)  <74>  (ISTEP  equations) 
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Mobilization/War  Hot  Stocks 


(108)  <75>  (ISTEP  equations) 

(109)  <76>  (ISTEP  equations) 

Mobilization/War  Domestic  Stockpile 

(110)  <77>  (ISTEP  equations) 

Mobilization/War  In-Theater  Stockpile 

(111)  <78>  (ISTEP  equations) 

Foreign  Stockpile  Upper  Bounds 

(112)  <79>  (ISTEP  inequalities) 

Pipeline  Upper  Bounds 

(113)  <80>  ( ISTEP-1  inequalities) 

Mobilization/War  Budget  Constraints 

(114)  <89>  (ISTEP  inequalities) 

Build-up  Budget  Constraint 

(115)  <87> 

Steady-State  Budget  Constraint 

(116)  <88> 

Nonnegative  Purchase  Requirements 

(117)  <15> 

(118)  <16> 

(119)  <17> 

(120)  <18> 
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Final  Value  Constraints  ( optional ) 


(121) 

<8l> 

(122) 

<82> 

(123) 

<83> 

Purchase  Pattern  Slope  Constraints  ( optional ) 


(124) 

<87> 

(125) 

<88> 

(126) 

<89> 

(127) 

<90> 

Capital-to-Stockpile  Ratio  Constraint 

(128)  <84> 

Satis f actio  n  of  Steady -State:  Demands 

(129)  <51> 

No  Level  Warm  Capital  Buy  Constraint  ( optional ) 


(130) 

<86> 

No 

Initial  Warm  Capital  Buy  Constraint  ( optional ) 

(13D 

<85> 

In  addition  to  these  constraints,  we  require  that  all 
variables  be  nonnegative. 
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III.  IMPLEMENTATION  AND  USER'S  GUIDE 


The  S/PB  model,  as  formulated  in  the  preceding  chapter, 
presents  a  linear  programming  problem  to  which  the  well-known 
techniques  of  linear  programming  can  be  applied  to  obtain  a 
set  of  variable  values  minimizing  the  objective  function.  We 
solve  this  linear  programming  problem  using  the  linear  program¬ 
ming  subroutines  of  a  code  that  solves,  by  branch-and-bound , 
separable  piecewise-linear  programming  problems.  This  program, 
named  MOGG,  is  documented  in  Reference  [1].  There  are  two 
reasons  for  adopting  this  approach: 

1.  It  is  a  simple  matter  to  employ  MOGG  as  a  linear 
programming  routine. 

2.  Minor  modifications  allow  one  to  replace  some 
linear  terms  with  piecewise-linear  functions  of 
the  variables,  thereby  enabling  one  to  investi¬ 
gate  certain  nonlinear  formulations  of  the  model. 

This  is  a  possible  future  effort. 

The  model  has  been  implemented  by  reprogramming  the  initial 
section  of  MOGG  in  such  a  way  as  to  replace  MOGG's  input  code 
with  code  that  constructs  MOGG  input  from  S/PB  input. 

We  will  not  discuss  programming  considerations  in  detail 
here ;  however,  it  may  be  useful  to  the  user  of  the  model  to 
know  that  the  linear  programming  tableau  is  filled  by  columns. 
First  is  a  section  of  columns  corresponding  to  artificial  vari¬ 
ables  followed  by  columns  corresponding  to  model  variables  in 
the  following  order: 
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Column  number(s) 

(after  artificial  var i a b 1 e ( s ) 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
to  18  + 
t  o  17  + 
to  16  + 
to  15  + 


Variabl e(s) 

BC1 

BC2 

BW1 

BW2 

3LPPC1 

SLPNC1 

SLPPC2 

SLPNC2 

SLPPW1 

SLPNW1 

SLPPW2 

SLPNW2 

EC1 

EC2 

EW1 

EW2 

ES 

EPREP 


p 

1 — 1 
o 

l — 1 

II 

P 

.  3 ISTEP) 

C2(t) 

(t=l3 . . 

.  3 ISTEP) 

Wl(t ) 

l — 1 

II 

P 

.  ,ISTEP) 

W2(t ) 

l — 1 

II 

P 

. 3 ISTEP) 

HI  (t ) 

(t-1, . . 

.  3 ISTEP) 

H2(t) 

(t=l, . . 

ISTEP) 

P01(t ) 

(t-1, . . 

. ,ISTEP) 

PC  2 ( t ) 

C\ 

1 — 1 

11 

P 

. 3 ISTEP) 

s(t) 

ft 

1 — 1 

II 

P 

. ,ISTEP) 

sp(t) 

1 — 1 

II 

P 

. ,ISTEP) 

PIPE ( t ) 

(t=l, . . 

. , ISTEP-1 ) 

TCWl(t) 

(t=l , . . 

. , ISTEP-1) 

TCW2 (t ) 

1 — 1 

II 

P 

. , ISTEP-1) 

19 

19  +  ISTEP 
19  +  2ISTEP 
19  +  3ISTEP 
19  +  4ISTEP 
19  +  5ISTEP 
19  +  6ISTEP 
19  +  7ISTEP 
19  +  8ISTEP 
19  +  9ISTEP 
19  +  10ISTEP 
18  +  11 ISTEP 
17  +  12ISTEP 


ISTEP 

2ISTEP 

3ISTEP 

4ISTEP 

5ISTEP 

6ISTEP 

7ISTEP 

8ISTEP 

9ISTEP 

10ISTEP 

11ISTEP 

12ISTEP 

13ISTEP 
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Column  number(s) 

(after  artificial  variable(s) 


16 

+ 

13ISTEP 

to 

14 

+ 

14ISTEP 

15 

+ 

14ISTEP 

to 

13 

+ 

15ISTEP 

14 

+ 

15ISTEP 

to 

12 

+ 

16ISTEP 

13 

+ 

16ISTEP 

to 

11 

+ 

17ISTEP 

12 

+ 

17ISTEP 

to 

10 

+ 

18ISTEP 

11 

+ 

18ISTEP 

to 

9 

+ 

19ISTEP 

10 

+ 

19ISTEP 

to 

8 

+ 

20ISTEP 

9 

+ 

20ISTEP 

to 

7 

+ 

21ISTEP 

8 

+ 

21ISTEP 

to 

6 

+ 

22ISTEP 

7 

+ 

22ISTEP 

to 

5 

+ 

23ISTEP 

6  +  23ISTEP 

7  +  23ISTEP 


A.  USING  THE  MODEL 


V  a  r  i  a  b  1  e  (  s ) 


TCHl(t) 

(t=l, . . 

. , ISTEP-1 ) 

TCH2 ( t ) 

(t=l, . . 

.  ,  ISTEP-1) 

TWH1 ( t ) 

(t=l , . . 

.  , ISTEP-1) 

TWH2 ( t ) 

(t=l, . . 

.  , ISTEP-1) 

TWC1 ( t ) 

(t  =  l,  .  . 

.  ,  ISTEP-1) 

TWC  2  ( t  ) 

(t=l, . . 

.  , ISTEP-1) 

THCl(t) 

(t=l, . . 

.  ,  ISTEP-1) 

THC2 ( t ) 

(t=l, . . 

.,  ISTEP-1) 

THWl(t ) 

l — 1 

II 

. , ISTEP-1) 

THW2 (t ) 

(t=l, . . 

IBW1 

IBW2 

.  , ISTEP-1) 

deck  is  a  title  card.  Any  fifty 


The  first  card  of  the  input 
character  title  is  acceptable.  Following  the  title  card  are  the 
inputs  required  to  run  the  S/PB  model,  which  are  listed  below  in 
the  order  in  which  they  are  read.  After  each  bullet  (•)  is  a 
list  of  parameter  values  that  must  appear  on  the  card  or  cards  as 


well  as  the  applicable  FORTRAN  format  statement.  Only  those 
parameters  that  are  not  defined  in  Chapter  II  are  defined  here. 


•  IXPRIN ,  Kl,  K2 ,  K3,  K4,  K5,  KC1 ,  KC2 ,  KC  3  ,  KC4 
FORMAT  (1015) 

IXPRIN  =  Kl  =  K2  =  K3  =  k4  =  K5  =  0 

The  first  six  entries  are  MOGG  options,  which  are  explained 
in  Reference  [1].  Except  for  debugging  purposes,  they 
should  all  be  set  to  zero.  The  next  four  entries  are  the 
means  with  which  the  user  imposes  the  optional  constants. 

1  if  the  user  wishes  to  include  the  final  value 
constraints  (equations  (121)-(123)) 

I\C  1  = 

0  otherwise. 
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1  if  the  user  wishes  to  include  the  purchase  pattern 
shape  constraints  (Equations  (124 ) - (127 ) ) . 

0  otherwise • 


1  if  the  user  wishes  to  include  the  capital  to 
stockpile  ratio  constraint  (Equation  (128)). 

0  otherwise. 


-  2  if  the  user  wishes  to  include  the  no-level-warm- 
capital  purchase  constraint  (Equation  (130)). 

1  if  the  user  wishes  to  include  the  no-initial-warm- 
capital  purchase  constraint  (Equation  (131)). 

0  otherwise. 


NLAG ,  NPURCH,  NSS,  ISTEP 
FORMAT  (415) 

NPURCH  may  assume  any  positive  integer  value.  NSS  and  NLAG  may 
be  any  nonnegative  integer  value.  ISTEP  is  limited  to  integer 
values  between  1  and  36  (because  of  core  storage  limitations). 

VC1,  VC2 ,  VW1,  VW2 ,  VPW1,  VPW2 ,  VH1 ,  VH2 
FORMAT  (8F10.4) 

VPH1,  VPH2,  VPC1 ,  VPC2 ,  VCW1,  VCW2 ,  VCH1,  VCH2 
FORMAT  (8F10.4) 

VWH1,  VWH2 ,  VWC1 ,  VWC2 ,  VHC1,  VHC2 ,  VHW1 ,  VHW2 
FORMAT  (8F10.4) 

VPIPE,  VS,  VSSALV ,  VSP,  VSPALV,  VPREP,  R 
FORMAT  (7F10.4) 

MA,  MB,  AMULT,  BMULT 
FORMAT  (215,  2F10.3). 


These  last  four  entries  are  Included  to  offer  the  user  the 
opportunity  to  Investigate  the  effect  of  weighting  certain 
costs  of  the  Mobilization/War  period.  For  Instance,  one 
might  wish  to  determine  the  optimal  stockpile/production 
base  mix  where  wartime  costs  are  excluded  from  the  objec¬ 
tive  function. 

Let  t  =  1,  ...,  ISTEP  denote  the  time  steps  of  the 

Mobilizat ion/War  period.  The  unit  costs  corresponding 
to  time  steps  t  such  that  MA  £  t  <  MB  are  multiplied  by 
AMULT .  Those  costs  corresponding  to  time  steps  t  for 
which  MB  £  t  £  ISTEP  are  multiplied  by  BMULT . 

•  KW1 ,  KW2 ,  KH1 ,  KH2 
FORMAT  (4F10.4) 

•  DC1 ,  DC2 ,  DW1 ,  DW2 ,  DH1 ,  DH2 ,  DS ,  DSP 
FORMAT  (1515) 

•  LP1 ,  LP2 ,  LCW1 ,  LCW2 ,  LCH1,  LCH2 ,  LWH1 ,  LWH2 ,  LHC1,  LHC 2 , 
LHW1,  LHW2 ,  LWC1 ,  LWC2 ,  LPIPE 

FORMAT  (1615) 

In  order  to  prevent  a  resource  from  appearing  In  two 
places  during  any  one  time  step,  all  these  time  lags 
should  be  at  least  1. 

•  OMUN,  0C0LD1 ,  0C0LD2 ,  0WARM1,  0WARM2 
FORMAT  (5F10.4) 

•  BPBUG ,  EBUDG 

•  BUDG ( 1 ) , .  .  . , BUDG ( ISTEP ) 

FORMAT  (8F10.4) 

More  than  two  cards  will  be  necessary  If  ISTEP  Is 
greater  than  8. 

•  BPDEM,  SSDEM 

•  DD ( 1 ) , . . . , DD ( ISTEP ) 

•  FD ( 1 ) , . . . , FD ( ISTEP ) 

FORMAT  (8F10.4) 


71 


More  than  three  cards  will  be  necessary  if  ISTEP  is 
greater  than  8. 

•  UBPREP 

•  UBSP ( 1 ) ,  .  .  .  , UBSP ( ISTEP ) 

•  UBPIPE(l) , . . . ,UBPIPE(ISTEP-1) 

More  than  three  cards  will  be  necessary  if  ISTEP  is 
greater  than  8. 

Optional  Cards 

If  KC1  =  1,  include 

•  ENDS,  ENDSP,  ENDPROD 
FORMAT  (3F10.ll) 

If  KC2  =  1,  include 

•  SLOPC1 ,  SLOPC2,  SLOPW1 ,  SLOPW2 
FORMAT  (ilFlO.H) 

If  KC3  =  1,  include 

•  RATIO 

FORMAT  (1F10.H) 

Run  times  of  the  model  on  the  CDC  6400  computer  are  on  the 
order  of  100  CPU  seconds. 

Output  consists  of  three  sections.  The  first  restates  the 
inputs  and  also  contains  a  statement  of  production  costs  attrib¬ 
utable  to  original  warm  capital  stocks.  The  second  section  is 
MOGG  output  and,  for  those  unfamiliar  with  Reference  [1],  may 
be  ignored.  The  final  section  gives  the  value  of  the  objective 
function  at  optimum  and  the  optimal  variable  values. 
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B.  SAMPLE  RUN 


Figure  5  shows  a  sample  input  deck.  Note  that,  for  this 
run,  the  Build-up  period  lasts  a  total  of  60  time  steps,  with 
30  of  those  required  before  new  capital  can  produce.  The 
Steady-state  period  is  180  time  steps  and  the  Mobilization/War 
period  is  24.  Also,  the  user  has  set  the  final  value  constraints 
such  that  the  domestic  stockpile  must  have  in  it  at  least 
277.31302  units  in  the  final  time  period.  Notice  also  the  nega¬ 
tive  entries  for  VSSALV  and  VSPALV,  indicating  that  at  the  end 
of  the  Mobilization/War  period,  the  salvage  value  of  ammunition 
remaining  in  the  stockpile  is  subtracted  from  the  total  costs. 

The  output  of  the  S/PB  model  for  this  sample  run  is 
displayed  in  Figure  6.  The  output  has  been  annotated  to  high¬ 
light  certain  features. 
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u  i  i  0  0 1  j ,  I  |  Cl  0  h  ij  0 ,  |  i  i  f  0  0  0 ,  I  1  0  u  0  u  0 ,  I  1  0  u  U  u  0 , 


*Z*»99I 
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Figure  5.  SAMPLE  INPUT  DECK 


inA  qxOCKPILF/PpnruCTl^  BAcE  MrnFI  --  IllLt 
SAmP| F  PPOBLFM 

FTNai  PEPiUn  <TncKPIi.F<  anD  PRnpncTiOw  Ha^E.  been  «ET--Lis 
NLAg«  30  KPUPCW«  30  NSS*  1*0  ?$**?» 


indNi  d o  Nouvy3ii3a 


r 


c 


■o 


rs  * 
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SAMPLE  PROBLEM  OUTPUT 


BUOG.  loooon-ono  lOOOOO.ftOr  lonnoo.ooo  100000*000  100000*000  100000*000  100000*000  100000*000 


indNI  30  N01iva3113d 
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Figure  6.  (contd) 
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Figure  6.  (contd) 
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Figure  6.  (contd) 
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Figure  6.  (contd) 
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APPENDIX  A 


GLOSSARY  OF  INPUT  PARAMETERS  AND  VARIABLES 


GLOSSARY  OF  INPUT  PARAMETERS 


Name 

Definition  First  1 

AMULT 

The  cost  multiplier  for  Mobilization/War 
time  steps  in  the  interval  [MA,MB] 

71 

BMULT 

The  cost  multiplier  for  Mobilization/War 
time  steps  in  the  interval  [MB,ISTEP] 

71 

BPBUDG 

The  user-supplied  limit  on  the  Build-up 
period  capital  purchase  and  ammunition 
production  costs  (undiscounted) 

60 

BPDEM 

The  demand  for  ammunition  during  each 
time  step  of  the  Build-up  period 

27 

BUDG(t) 

The  user-supplied  limit  on  the  undiscounted 
costs  of  capital  purchase  and  ammunition 
production  applying  to  time  step  t 

6l 

DC1 

The  fraction  of  type  1  cold  stocks  lost  to 
deterioration  during  one  time  step 

12 

DC  2 

The  fraction  of  type  2  cold  stocks  lost  to 
deterioration  during  one  time  step 

12 

DD  (t ) 

The  domestic  demand  for  ammunition  during 
time  step  t 

15 

DH1 

The  fraction  of  type  1  hot  stocks  lost  to 
deterioration  during  one  time  step 

14 

DH2 

The  fraction  of  type  2  hot  stocks  lost  to 
deterioration  during  one  time  step 

14 

DS 

The  fraction  of  the  domestic  ammunition 
stockpile  lost  to  deterioration  during 
one  time  step 

14 

DSP 

The  fraction  of  the  in-theater  ammunition 
stockpile  lost  to  deterioration  during 
one  time  step 

15 

DW1 

The  fraction  of  type  1  warm  stocks  lost 
to  deterioration  during  one  time  step 

13 

DW2 

The  fraction  of  type  2  warm  stocks  lost  to 
deterioration  during  one  time  step 

13 

A-l 


GLOSSARY  OF  INPUT  PARAMETERS  (contd) 


EBUDG 

The  user-supplied  limit  on  the  Steady-state 
capital  purchase  and  ammunition  production 
costs  (undiscounted) 

60 

ENDPRD 

The  level  of  ammunition  production  to  be 
achieved  during  the  final  time  step 

57 

ENDS 

The  amount  of  ammunition  that  must  be  held 
in  the  domestic  stockpile  during  the  final 
time  step 

57 

ENDSP 

The  amount  of  ammunition  that  must  be  held 
in  the  in-theater  stockpile  during  the 
final  time  step 

57 

FD(  t ) 

The  in-theater  demand  for  ammunition  during 
time  step  t 

15 

ISTEP 

The  number  of  time  steps  in  the  Mobiliza¬ 
tion/War  period 

47 

KH1 

The  capital  to  output  ratio  for  type  1 
hot  capital 

15 

KH2 

The  capital  to  output  ratio  for  type  2 
hot  capital 

15 

KW1 

The  capital  to  output  ratio  for  type  1 
warm  capital 

14 

KW2 

The  capital  to  output  ratio  for  type  2 
warm  capital 

LA 

i — 1 

LCH1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  cold  to 
hot  stocks 

14 

LCH2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  cold  to 
hot  stocks 

14 

LCW1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  cold  to 
warm  stocks 

14 

LCW2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  cold  to. 
warm  stocks 

14 

LHC1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  hot  to 
cold  stocks 

13 

LHC  2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  hot  to 
cold  stocks 

13 
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GLOSSARY  OF  INPUT  PARAMETERS  (contd) 


LHW1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  hot  to 
warm  stocks 

14 

LHW2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  hot  to 
warm  stocks 

15 

LP1 

The  number  of  time  steps  from  the  time 
type  1  capital  is  purchased  until  it  is 
delivered  to  cold  stocks 

12 

LP2 

The  number  of  time  steps  from  the  time 
type  2  capital  is  purchased  until  it  is 
delivered  to  cold  stocks 

12 

LPIPE 

The  number  of  time  steps  required  to 
transfer  ammunition  from  the  domestic  to 
the  in-theater  stockpile 

15 

LWC1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  warm  to 
cold  stocks 

12 

LWC2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  warm  to 
cold  stocks 

12 

LWH1 

The  number  of  time  steps  required  to 
transfer  type  1  capital  from  warm  to 
hot  stocks 

14 

LWH2 

The  number  of  time  steps  required  to 
transfer  type  2  capital  from  warm  to 
hot  stocks 

14 

MA 

The  first  time  step  of  the  Mobilization/War 
period  at  which  cost  multiplier  AMULT  is 
applied 

71 

MB 

The  first  time  step  of  the  Mobilization/War 
period  at  which  cost  multiplier  BMULT  is 
applied 

71 

NLAG 

The  time  delay  in  acquiring  capital  during 
the  Build-up  period 

4l 

NPURCH 

The  number  of  time  steps  in  the  Build-up 
period 

20 

NSS 

The  number  of  time  steps  in  the  Steady- 
state  period 

41 

OCOLD1 

The  amount  of  original  type  1  cold  capital 

on 

C\J 

OCOLD2 

The  amount  of  original  type  2  cold  capital 
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GLOSSARY  OF  INPUT  PARAMETERS  (contd) 


OMUN  The  amount  of  original  ammunition  27 

OWARM1  The  amount  of  original  type  1  warm  capital  26 

0WARM2  The  amount  of  original  type  2  warm  capital  26 

R  The  single  time  step  discount  factor  for  18 

costs 

RATIO  The  user-specified  ratio  of  total  capital  58 

to  total  stockpile  to  be  achieved  during 
the  end  of  the  Build-up  period 

SL0PC1  The  slope  desired  by  the  user  for  the  58 

type  1  cold  capital  purchase  pattern 

SL0PC2  The  slope  desired  by  the  user  for  the  58 

type  2  cold  capital  purchase  pattern 

SL0PW1  The  slope  desired  by  the  user  for  the  58 

linear  component  of  the  type  1  warm  capital 
purchase  pattern 

SL0PW2  The  slope  desired  by  the  user  for  the  58 

linear  component  of  the  type  2  warm  capital 
purchase  pattern 

SSDEM  The  demand  for  ammunition  per  time  step  42 

during  the  Steady-state  period 

UBPIPE(t)  The  maximum  amount  of  ammunition  that  can  57 

be  transferred  from  the  domestic  to  the 
in-theater  stockpile  during  time  step  t 

UBPREP  The  maximum  amount  of  ammunition  that  can  be  57 

prepositioned  into  the  in-theater  stockpile 

UBSP(t)  The  maximum  amount  of  ammunition  that  can  57 

be  held  in  the  in-theater  stockpile  during 
time  step  t 

VC1  The  cost  of  maintaining  one  unit  of  type  1  16 

capital  in  cold  stocks  for  one  time  step 

VC2  The  cost  of  maintaining  one  unit  of  type  2  16 

capital  in  cold  stocks  for  one  time  step 

VCH1  The  cost  of  transferring  one  unit  of  type  1  17 

capital  from  cold  to  hot  stocks 

VCH2  The  cost  of  transferring  one  unit  of  type  2  17 

capital  from  cold  to  hot  stocks 

VCW1  The  cost  of  transferring  one  unit  of  type  1  17 

capital  from  cold  to  warm  stocks 

The  cost  of  transferring  one  unit  of  type  2  17 

capital  from  cold  to  warm  stocks 
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GLOSSARY  OF  INPUT  PARAMETERS  (contd) 

VH1 

The  cost  of  maintaining  one  unit  of  type  1 
capital  in  hot  stocks  for  one  time  step 

17 

VH2 

The  cost  of  maintaining  one  unit  of  type  2 
capital  in  hot  stocks  for  one  time  step 

17 

VHC1 

The  cost  of  transferring  one  unit  of  type  1 
capital  from  hot  to  cold  stocks 

18 

VHC2 

The  cost  of  transferring  one  unit  of  type  2 
capital  from  hot  to  cold  stocks 

18 

VHW1 

The  cost  of  transferring  one  unit  of  type  1 
capital  from  hot  to  warm  stocks 

18 

VHW2 

The  cost  of  transferring  one  unit  of  type  2 
capital  from  hot  to  warm  stocks 

18 

VPC1 

The  cost  of  purchasing  one  unit  of  type  1 
capital 

16 

VPC2 

The  cost  of  purchasing  one  unit  of  type  2 
capital 

16 

VPH1 

The  cost  of  producing  one  unit  of  ammuni¬ 
tion  from  type  1  hot  stocks 

17 

VPH2 

The  cost  of  producing  one  unit  of  ammuni¬ 
tion  from  type  2  hot  stocks 

17 

VPIPE 

The  cost  of  transferring  one  unit  of 
ammunition  from  the  domestic  to  the  in¬ 
theater  stockpile 

17 

VPREP 

The  cost  of  prepositioning  one  unit  of 
ammunition  in  the  in-theater  stockpile 

46 

VPW1 

The  cost  of  producing  one  unit  of  ammuni¬ 
tion  from  type  1  warm  stocks 

17 

VPW2 

The  cost  of  producing  one  unit  of  ammuni¬ 
tion  from  type  2  warm  stocks 

17 

VS 

The  cost  of  maintaining  one  unit  of 
ammunition  in  the  domestic  stockpile  for 
one  time  step 

17 

VSP 

The  cost  of  maintaining  one  unit  of 
ammunition  in  the  in-theater  stockpile 
for  one  time  step 

17 

VSPALV 

The  cost  of  holding  one  unit  of  ammunition 
in  the  in-theater  stockpile  during  the 
final  time  step  of  the  Mobilization/War 
period  (if  negative,  this  represents 
salvage  value) 

53 
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GLOSSARY  OF  INPUT  PARAMETERS  (concluded) 


VSSALV 

The  cost  of  holding  one  unit  of  ammunition 
in  the  domestic  stockpile  during  the  final 
time  step  of  the  Mobilization/War  period 
(if  negative,  this  represents  salvage  value) 

53 

VW1 

The  cost  of  maintaining  one  unit  of  type  1 
capital  in  warm  stock  for  one  time  step 

16 

VW2 

The  cost  of  maintaining  one  unit  of  type  2 
capital  in  warm  stock  for  one  time  step 

16 

VWC1 

The  cost  of  transferring  one  unit  of  type  1 
capital  from  warm  to  cold  stocks 

17 

VWC2 

The  cost  of  transferring  one  unit  of  type  2 
capital  from  warm  to  cold  stocks 

18 

VWH1 

The  cost  of  transferring  one  unit  of  type  1 
capital  from  warm  to  hot  stocks 

17 

V¥H2 

The  cost  of  transferring  one  unit  of  type  2 
capital  from  warm  to  hot  stocks 

17 
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GLOSSARY  OF  MODEL  VARIABLES 


Location  of 
First  Use 


Name  Definition 


BC1 

The  amount  of  type  1  cold  capital 
purchased  at  time  step  t=l 

22 

BC2 

The  amount  of  type  2  cold  capital 
purchased  at  time  step  t=l 

22 

BW1 

The  amount  of  type  1  warm  capital 
during  time  step  1  as  part  of  the 
portion  of  the  purchase  pattern 

purchased 

linear 

25 

BW2 

The  amount  of  type  2  warm  capital 
during  time  step  1  as  part  of  the 
portion  of  the  purchase  pattern 

purchased 

linear 

25 

Cl(t) 

The  amount  of  type  1  cold  capital 
held  during  time  step  t 

stocks 

10 

C2(t) 

The  amount  of  type  2  cold  capital 
held  during  time  step  t 

stocks 

10 

EC1 

The  amount  of  type  1  cold  capital 
during  the  Steady-state  period 

held 

42 

EC2 

The  amount  of  type  2  cold  capital 
during  the  Steady-state  period 

held 

42 

EPREP 

The  amount  of  ammunition  explicitly 
prepositioned  into  the  in-theater  stock¬ 
pile  during  the  Steady-state  period 

43 

ES 

The  total  amount  of  ammunition  held  in 
stockpiles  during  the  Steady-state 
period 

42 

EW1 

The  amount  of  type  1  warm  capital 
during  the  Steady-state  period 

held 

42 

EW2 

The  amount  of  type  2  warm  capital 
during  the  Steady-state  period 

held 

42 

HI  ( t ) 

The  amount  of  type  1  hot  capital 
held  during  time  step  t 

stocks 

10 

H2(t  ) 

The  amount  of  type  2  hot  capital 
held  during  time  step  t 

stocks 

10 
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GLOSSARY  OF  MODEL  VARIABLES  (contd) 


IBW1 

The  amount  of  type  1  warm  capital  purchased 
during  time  step  1  in  addition  to  BW1 

26 

IBW2 

The  amount  of  type  2  warm  capital  purchased 
during  time  step  1  in  addition  to  BW2  ' 

26 

PlPE(t) 

The  amount  of  ammunition  transferred  from 
the  domestic  to  the  in-theater  stockpile 
beginning  during  time  step  t 

11 

s(t) 

The  amount  of  ammunition  held  in  the 
domestic  stockpile  during  time  step  t 

11 

SLPNC1 

The  negative  component  of  the  slope  of  the 
type  1  cold  capital  purchase  pattern 

'  22 

SLPNC2 

The  negative  component  of  the  slope  of  the 
type  2  cold  capital  purchase  pattern 

22 

SLPNW1 

The  negative  component  of  the  slope  of  the 
linear  portion  of  the  type  1  warm  capital 
purchase  pattern 

26 

SLPNW2 

The  negative  component  of  the  slope  of  the 
linear  portion  of  the  type  2  warm  capital 
purchase  pattern 

26 

SLPPC1 

The  positive  component  of  the  slope  of  the 
type  1  cold  capital  purchase  pattern 

22 

SLPPC2 

The  positive  component  of  the  slope  of  the 
type  2  cold  capital  purchase  pattern 

22 

SLPPW1 

The  positive  component  of  the  slope  of  the 
linear  portion  of  the  type  1  warm  capital 
purchase  pattern 

26 

SLPPW2 

The  positive  component  of  the  slope  of  the 
linear  portion  of  the  type  2  warm  capital 
purchase  pattern. 

26 

SP(t) 

The  amount  of  ammunition  held  in  the  in¬ 
theater  stockpile  during  time  step  t 

11 

TCH1 (t  ) 

The  amount  of  type  1  capital  transferred 
from  cold  to  hot  stocks  beginning  during 
time  step  t 

11 

TCH2 ( t ) 

The  amount  of  type  2  capital  transferred 
from  cold  to  hot  stocks  beginning  during 
time  step  t 

11 

TCWl(t) 

The  amount  of  type  1  capital  transferred 
from  cold  to  warm  stocks  beginning  during 
time  step  t 

11 
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GLOSSARY  OF  MODEL  VARIABLES  (concluded) 

TCW2 (t ) 

The  amount  of  type  2  capital  transferred 
from  cold  to  warm  stocks  beginning  during 
time  step  t 

11 

THCl(t) 

The  amount  of  type  1  capital  transferred 
from  hot  to  cold  stocks  beginning  during 
time  step  t 

11 

THC2 ( t ) 

The  amount  of  type  2  capital  transferred 
from  hot  to  cold  stocks  beginning  during 
time  step  t 

11 

THWl(t) 

The  amount  of  type  1  capital  transferred 
from  hot  to  warm  stocks  beginning  during 
time  step  t 

11 

THW2 (t ) 

The  amount  of  type  2  capital  transferred 
from  hot  to  warm  stocks  beginning  during 
time  step  t 

11 

TWC1 (t ) 

The  amount  of  type  1  capital  transferred 
from  warm  to  cold  stocks  beginning  during 
time  step  t 

11 

TWC2 ( t ) 

The  amount  of  type  2  capital  transferred 
from  warm  to  cold  stocks  beginning  during 
time  step  t 

11 

TWH1 ( t ) 

The  amount  of  type  1  capital  transferred 
from  warm  to  hot  stocks  beginning  during 
time  step  t 

11 

TWH2 ( t ) 

The  amount  of  type  2  capital  transferred 
from  warm  to  hot  stocks  beginning  during 
time  step  t 

11 

Wl(t ) 

The  amount  of  type  1  warm  capital  stocks 
held  during  time  step  t 

10 

W2(t ) 

The  amount  of  type  2  warm  capital  stocks 
held  during  time  step  t 

10 
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APPENDIX  B 


STOCKPILE/PRODUCTION  BASE  MODEL 


FORTRAN  LISTING 


PROGRAM  MOGGI  INPUT, OUTPUT, TAPFb»OUTPUT) 
c  *****mmxVaR*THE  Maximum  numhfp  of  o«i«tnaL  VARIaBttS*  OIMfnSiONS 
0  K L n, KpO,KL.Kr>,v COOED. vBE^t  *VAon*m 

r  **«#*maxC"T,  THF  maximum  niiMBew  OF  IntEKNAL  VARIABLES  OIMfnSiONS 

r  w.ri_T5 

C  stma'x,  thf  maximum  l  t St  SIZE  dimensions  ZLStnO.ZLSTpa 

c  L«tKL,  LSTKp,7LSL»  .  tBRVK,F|.  aG 

C  **«**mhxFOWsMAXTMIim  NUMHEK  of  mows  (INC.  ORJECTIVF  FUNCTION), 

r  iumfnsicns  ichk 

f  *****MAx A  DIMENSIONS  a,ia 
RFAL  Kt*i  ,KW2,KHl  ,KH? 

COMMON  KL0(A4n) , kHO ( «4  o ) »KL<o4f) ,KP<840) »XCOUED<840) ,XREST 


1  (P40)  .w(P40)  .Cuts  (Pap)  .ZLstNO  (b)  ,  7l  STD*  <S>  *LstKL  (4)  ,LstKR  (5)  , 

2ZI  SIR  <H) , IBPVR (P) ,Fl  AG (5) »kBL (3) ,KnR(1) ,VAPNAM ( 1 ) .prOBNA  <1 ) , 
3M4XVAw,mA  XCUT,LFTMAX  ,MaXHOu/,MaaA,NmRCW8,NIIMVAR»  ICMK  ( 430  >  *  V  Al  ,  LFLG  , 
4ISTFP.l-t.lHl  *LhH2,Kw1 .KW2.KH1 »Kh2 
COMMCN/wCRKl/B (43*) ,X(430).Y(4J0),vTFmP(^30),A(37o0)»E(57o0), 

1 T a (3700) . IE (5700) ,I.A ( 1302) .LE (^00?>  »ICNAM  n  3o2»2) .KINBAS (130?) ♦ 

?  JH ( 4 JO )  . I  STIPE (4 30)  .NAME  <?0)  ,NTFMP(?n) , CM  I N ,COND . F rMAX » I FFE? , 

3  TNVFMO, IORJ, IPOWP.ITOH, ItCHA, ITcnT, TTMFRO, IVIN, tvOUT, JCOLP.KINP, 

4  XSTAT .kROW.NCoi ,NFLEM.NtTA,NLELEM,M  F 1  A , NGELEm , NGETA , NUFLEm , 

5  MIETA.'UMINF.k? 

Common/plOCK/  ZtO)  7p.7tOLP)/»7tOOst,Npmax,NtMAX. NEmAX»orO»qmA,qBA. 

1  CFI ,urO .URL  »0p|  ,0mt .oa.Om.OC.QF ,pF,OG,UH,QI ,QL*OM,QN,00,OR,QU,07 
DTMFNSTON  HUE15  ( )  ,00  (36)  ,FU  (3b)  ,HnSP  (3ft)  ,URPIPF  <36) 

OAjA  I 0PV , INvFRO, TtdfR0/1 *s0»?o00/ 

Data  Zlol.  ZE.ZTOl  PV,7TCoST/i.E-iO»l.E-*,l.F-6/ 

Data  n«max»ntmax,nfmaX/43o.2ooo»s7oo/ 

OAtA  I0HO,OMA,(i)Ra,OFT»QfO*UpL,OHL,OmI/4HK(JW  ,4HMATH,4HBASl  , 

1  4HF I WS ,  4HECF  ,  4 H  ,4H  *  ,HH  -  / 

data  q«.cr.oc»gf,of.og',qh,oI ,“L,om.on .gu.oR.qu.qz^ha  ,4hb  , 

1  4HC  ,4HE  . 4  MF  , 4HG  *4HH  ,4Hi  ,4HL  *4HM  ,4HN  , 

2  4HC  ,  4HR  ,4HII  ,4H  7  / 

DATA  HUoTOL.FEaSTI  , o I FFT0 , dONtuL/ 1 . E-3 , 1 , F-3 , 1 . E-3 . 1 .E-3/ 

DAtA  CUttOL/I.E-P/ 

M A  X V  A  PsR4  0 
MAXCI'T  =  P40 
LSTMAxsc 
MAxROW=4?0 

MAxA*3(^p 

WMmbcHMAMJ. 

RllPsl  .F7C 

c  ****«tmt<  section  ppaos  In  data 

s  Format (aIhippogpam  mogg--ftnos  global  solutions  to  approximate  pro 

1RI.FMS) 

PFAO  7 

7  FORMAT ( SHH  ) 

RF  AO  iO,IXPRIN,K1tM?,K-»,K4.K5,NCl,KCj,KL3,KC4 
10  F0RMAT'lEl5) 

RF  AO  1 0 .KLAG.NPUpoh.NSS* IStEP 
c  PUT  INPUT  SECTION  HFRF 

P p T N t  2oclO 

20010  FORMAT M HI »*IDA  STOCKPILE/ PRODUCTION  RASE  MODEL*) 

PPIFT  ( 

IF(KC1 .NF.O)pRlNT  ?oq2o 

?oo?o  format (ihoi*finai  pfriod  stockmilf«  and  production  have  bfen  set*) 
IF(KC?.nF.O)PRInt  ?oo3o 


B-l 


200-,"  FORMAT<i>-0**HUY  PFRTOD  SLUpES  nAVE  BFFN  SET* ) 

IF  (Kn.NF,0)pRlvT  2004* 

2004"  FORMAT (iMO**CAPTtaL  SToCK  tO  SIOCKpIlf  kaTIO  HAS  PEEN  SET*) 
IF(KC4.fC.1)PRInt  2*04? 

IF  (KT4  .FC.2)  pRlMj  2*044 

2004?  EPPHAT(iPO**INlTTAL  WARM  CaPlTAl  Pi'RCWAStS  ELIMINATED*) 

20044  FORMAT  <1I-0**LEVFL  WaRM  CAPITAL  PIIRpHaCFS  Fl  IMINaTfp*) 

PRTN'T  2np  1  5*MAfi  , mPuRCm  *  I  s  |  EP 

?omc  FncPAT(ii-o**MAr;*  *t«>*4X*ndURch«  *t5«ax*nsS«  *l5*f X*ISTEP«  *15) 

PP TFT  ?ors° 

2005"  FDqHAt ‘iPO**COStc  #,5P<1H*)) 

PFAn  2*1  75  *  VC  1  tVPPtVW)  *V*2*Vpwl,VRW?,VHlfVH2 
PFAP  20175*VPH1  ,  VRH2,VP<»1  »wHCp*V»-Wi  ,  VCW2 *  VCHl  *  VCH? 

PF4PP0) 7=  *VWHl *VWH?.VWr 1  *  VwC2  *  VHC  1  . VHP?  »VHW1 *VHW2 
RF4P  20*F5*VPIPf  ,vS.VSp*VScALV,VSPaLV ,WHSALV ,VPREp*R 
POOftc  FormAtIRFIO.3) 

PFAP  2vpFo*MA*MPf  aMii|  T,bMOl  T 
200ftn  FORMAT  CT5*2F10. 3) 

PRINT  2?p70 

200  7"  FORMAT  (  *>0**VCl*H>X*VC2*12x*Vtel*l  2v*VW2*12X*VPW1  *1  1  X* VPH2*  1  1  X* VHl  • 

) 1?X«VH?«) 

PRTFT  2*rR0*VCl *VC2*V W) * Vw? * Vpwl * VrW? • VH1 ,VH2 
2000"  FOPMATMt-  * «  < F 1 2 . 4  , ->X )  ) 

PRINT  2*"90 

POOR"  FORMAT  »ll-0**VpHl  *1  1  V*VDH2*1  1  X*VpCl  *1  1  X*V*jC?*1  1  X* vr  W 1  *  1  1  X*  V cw?*  1  )  X* 
)  vrp 1*1 1 y*vCh?*) 

PR  TNT  2"  TOO*  VPHi  tvPu2,vPCl  .VPf2*VCul  ,vCt»2fVCHl  *VCh2 
20  1  oo  FOcmAtIik  *fl(Fl2.4,3X) ) 

PRINT  ^olTO 

2011"  FORMAT ( 1M0**VWH1*1 1 V*VwH2*1 1 X*vWC)*l 1 X • V*  C 2* 1 1 X* VHC 1* 1 1 X* V/HC2* 1 1 X * 
1 VHW 1 *) ) Y« VHW?*) 

PpTNT  2ol20*VWHi  ,vWw2*VWCl . VWC2*VHrl  *\/hC?»vHW1  *  VHh2 
20  1 2o  FnBNATliP  *R(F12.4»3X) ) 

PRINT  2*  1  30 

201  3o  FnBNATlii-o**vPlPF*l  "X*VS*1  ■,x*VS>p*I?X«vcj,ALV*9X*VSPAl-V*9X*vBSaLV*9x 

l«VPPFP*irX*R*) 

PRINT  2o)40*VPlPF,VO*VRP,VSSA|  V  «  VSP Al V , VHS AL V  ,  VPRFP « R 
2014o  FOpM At  1 i p  * B  (Fl2.4tTx) ) 

PRINT  2*150 

20 1 5o  FnRpAT(i|.o,«|YA*ny*MR«l3x*AMlJ|  1 « 1  0 y*Pm( il t* ) 

PRINT  ?ol  60*MA,MR,  amuLt*OmiiLT 
20  15"  FnONATlih  *15  *1  *X.  10,1  *X*2  If-  12.4  ,1*)  ) 

C 

PRINT  2*170 

2017"  FORMAT  M>-**CAPTTAL/nUTPUT  RATIOS  **33<1h*)) 

PFAP  20175*KW1,KW2*KH1 ,KM2 
2017c  FOpM A  I  IDF10.4) 

PRINT  2olR0 

201«o  FORMAT ( iM0**KWl*i9X*KW2*12Y*KHl*l 2Y*KM 2*) 

PRINT  2*190*KW1 ,KW2,KHl *KMP 
2019"  FOpMAT)^>  *4  (F12.T,TX) ) 

PRINT  2*200 

20200  FoRMAT(i)--**r;ETFPT0OATT0N  pATFS  **T5(lH*)) 

PFAP  2021  0*DC1  *DC2,0W1  ,UW2,L)H,  ,[)H2.0S,Di>H 
2021"  FOpMA  T  1 0F  1 0 .4 ) 

PR T NT  2*220 

2022"  FORMAT ( iH0**CCl«1?x*0C2*12v*0wl*1 2v*Dw2*12X*PHl*l2X*0H2*l2X*0S* 

1 1 3x*psm*) 
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potkt  z*?30.cci •nr?*nwi  tr>H?*cF.uSP 

?0*3o  FOpP#T‘i>-  »n  <F1?,7»-jX) ) 

PR T NT  2n?40 

?o*4n  FnopAT  (1P-»*TIMP  I  *,46<lH*n 

PF«P  ?O?e0*LPl*LP?.tCWi  ,LCw2»l  cHl  *1  CHP«L«(H1  tl_WH2.l  HC1  »LHC?*LHWl , 
ILwuP.I  «ri ,LwC2*l  PTPP 
20 *'?<'  FORMAT  ( i  4  T5) 

?0^4o  FnR|i'*TMF^»*Lpl*4v*|  p2*4X*i  CWl*3X*l  CW9*3X*LCH1 *3X*LCH2*3X*LWh1 *3X* 
UWP?*3X*LHC1  «3X*|  wr2*3»*LHwl*?A*LHW2*3X*LWCl*3X*Lk(C2*3X*LPlPF*) 
PdtM  2r?70tLPl ,LP2.I  C«1 *LrW?.LCHl .LCH2.1WH1 »l_WH2«LHtl ,LHc2,LHW1 , 

»r  ]  *LwC2*1  PTPP 
?027o  FpPPAT(1h  f  15  <13,4X1  1 
r 

PRINT  ?o?R0 

?0*Po  FOPMAtM>-**CRIOTNA|F  *46  (  1  H*)  ) 

PFAP  ?U?P0 f ONUN f OrOI  0) « OCUl U?*OWA PM1 t OWAHM2 
?02Rn  FOqMAT tPFl0.4) 
pPTNTij'^OO 

POJOO  FOPNAT  (lNOf*CMUN*U  v* OrOLDI *9x *OCOl  02*R**oWARMl *9y* 0WARM2# ) 

PRINT  ?n? 1 0 « CMUNfOroLHl ♦ OCoLO? , 0^ AnM 1 #OWftRM2 
203lrt  FOp  N  A  T  1 1  N  f«(F 1?#AV1X)) 

OMLNXr  (ou  ARM1/KUM  >  *k'|_  A r: ♦  (  UwARm^/KW?)  *M|_  AG 

PPTNT  ?S?15*0MUNX 

?03lc  FOpPAj  MF0»  lOXf  *ppOr>ijCrI0N  UuplNG  NLAO  *  *fF]0*41 
OWI .NsOMHN  ♦OMt'N X 
PP  U  T  ] 6 f  C MUM 

?03lX  FORMAT MhO*10Xf*TMVFNTORY  aFTFH  NLaG  *  *«F10#4) 

PpTNT  ?'>?20 

?03?n  FORMAT M N-f#HUDOFTF  *f4fi(lw#)) 

PFAP  ?()^0»  BPbUDO,  FRilOG 

pF  AO  ?m30»(BU^G(T)fT«IfIsTtP^ 

?OJ3*  FOPMAT(PF10#4) 

PRINT  ?r?4Qf BpRliHO 
?034n  FORMAT  M>Of*BPBMOOa  *fFl2.'i) 

PRINT  ?n3S(J  tEBUOO 
?o3Fo  FORMAT (ihO»#E8UOO*  *,Fl2#3l 

PRUT  ?r  ^  60  f  (BUOO  (  T1  f  Ial  f  TfTFP) 

?036rt  FoRMATiiMO»*euOG*  # , fl ( r 1 2 « 7 ♦ 3* ) ) 

PPTNT  2r  ?  70 

?0J7n  FORMAT  MN-f  *CEMAN'nS  *f48(lw#)) 

IrlSTFK 

pF  A  D  ?0*>PO  f  BFDE^  9  frp£m 
PF  An  ?niPMC0(  J)fJtl»T) 

PFAP  ?mP0t  <F0{  J)  f  J*1  f  T) 
po3Pn  FOpM A  7 < QF I  0 • 4 ) 

PPTNT  RPOFM 

?03QA  FORMA T  ( 1 h 0 f*RPDFM=  *,Fl2,4) 

PPTNt  2r400  fSsORM 
?04nn  FORMAT  <U0**SSDFM,  #,Fi2«4> 

PPTNT  2**10*  <DD<  Jl  f  .1*1  *  I) 

?04in  FOqMAf  V i M  0  *  *CDr  # , * tf 1 7 *3  * ) ) 

PPTNT  ?r4  20  t (FOCJ) fjslfl) 

?04?n  FORMAT  ( 1  NO  f*F0=  *,fl<FP*3t^n 
PPTNt  2*4  30 

?043n  FORMAT < i N- * *UPPRR  ROllNnS  *.43(1H*)1 
I  =  T  -  1 

PF  A  0  ?l)44  0  *UEPRFP 
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RFAO  20440*  (|jBSP(  I)  ,  J«l,  ISTtP) 

RFAP  2044 0  *  (LBPTPF (  l)tJ*l*T) 

?044o  FORMAT (pFl C. 4 ) 

PPTNt  2o4  50  *  L BPpfp 
?04Fn  FORMAT  Mt-0**LbPPFP  =  *  *  F  1  2. 4  ) 

PPTNT  2o4f,0*  (URSP(J)  ,J»l*l=TEP> 

204*4  FOCMATlil-0t*LBsPe  *° (F i 2. 3 . 3x ) ) 

PPTNT  2r470» (UBPTPR ( J) tJ»I . I) 

20470  FORMAT  (1  1-0  **LBPTPF*  *  *  o  (  F  1  7 . 3  ,  JX  )  ) 

PPTNt  2o4B0 

204R4  FPPMAT(ih-t*CPTTOnAI  Ik  FOHmATJ  UN 
IF  (Kr 1 .FC.O) GO  TP  ?l 01 s 
pF4p  204P0  tENDs  ,Fkin<;PfFNDPpU 
?049n  FOPMAT (PFl 0.4 ) 

PPTNT  ?oc00f ENOF.FMnSP.ENDDHO 

PORoo  FnPRAT  ( l  PO  t*ENDPs*Fl  2,4  *2X*tNpbp=  *F  l  •>  .  4 . 2X*EN0pRP*  *F12.4) 

?loio  IF  (Kr?.FC.O)C-0  to  ?io2'; 

PFAD  ?wRio*SLOPr,;St  0P02*!>|  OPwj.RL^P^p 
20*10  FORMAT (RF1 0.4) 

Print  2R=?o*slopoi  ,ci  ppC2*pLop«*i,<;'  opu? 

?05?o  FORMAT  <it-0**SL0oCl»  *F  y  i  ,  4 .2  X*blOPo2=  *M  2 . 4 . 2X*S|  OPW 1  a  *F12.4*2X 
1*RI_PPW2  =  *F  1  2  •  4  ) 

21o?o  IF  (KC3.fO.O)C-0  t o  ?i  o3" 

RFAP  20F?0tRATIO 

?or3o  Format ( pfi o.a ) 

PPTNt  ?o=40*PAtto 
20*40  FORMAT (iHO»*PATIO=  *F12.4) 

2 1  0 3o  COKtInuf 
771 *r . 

Z  Y  1  *  0  . 

Li laA  LAh.NPURCH 
IF  (LII.IT.1)  GO  t o  4 00 o 5 
LL  =  1 

Po  400O-J  T=LL*L'i 

Z71r^/l*((l.-0wn**U-l))/<(l.*R)**I) 

4000-5  7Y1  *?Y1*  (  ( 1  .-0W2)  ••  f  T-i ) )  /  *  (1  .  *R)  #,I) 

4000=  CONTlNUF 
772=0. 

Zy?=o . 

IF  (Lll.1  T.l  )  GO  TO  4001  0 
LL=  1 

Po  4  0007T  I  =LL  *Li' 

77?s7  72*F|JnCT5  (nWi  ,0^,tI)/((1.*r)**II) 

4  0007  7Y?=7Y2*FUNCT5 (OW7, ns*  T I ) / f ( 1 . *R) **I 1 1 

4OOI0  ("ON t T MUr 

7V>*\ ./  (  (1  .*c)**(i-|  cwi  ) ) 

7Y3«1 ./( (1 •♦R)**(1»| OW?)) 

274*1  .  /  I  (1  •♦R)**n-l  CWI  -Lht  )  ) 

Zy4*1 ./  (  (1 .♦R)**(l-I  OW 2-LM?)  ) 

77==FunotR (OWl «  PS . NPUROH ) 

ZYc*FllWfTc;(0V*2*nS‘,MoURrH) 

Z77=(V*ll*VPWl/Kwl)«771*Vb*7Z?/OWl 

777=ZZZ»rWARMl 

Z?Y= ( vw?*VPW2/KW?)*7Yl *VS*7Y2/NW? 

Z7Y=72t#OwArM2 
TCr5TS=777*ZZY 
PPTNT  •*5rl5*2ZZ,77Y 

4001c  FORMAT  (1  M-**PROniirTiON  COStS  fKOM  oRTO.TNaL  WaRM1=  *F12.3*  PRODUCT 


ION  roi>,,;:  FpO  0PToIwaL  Wa«w2= 

71  aF|jNCTl  ( L) w  1  *NP||PCM) 

72=FHNCt?  (OW1  ,Npi|POH) 

Z7*FUNCt1  (OWZtNPtlPCW) 

Z4*FUNCt?  (Dw2,Nr>nnCM) 

79*FUnCt1  (DC1  *NPIIRCW) 

Zft«FUNtf2 <DC1 «NPUPCH) 

77*FuNCt1  ( OC2  * NP| ioCH ) 

7R»FUNCt? (DC2*NpI'P0H) 

Zn*c  • 

on  2io4o  i  =  i*Np'Iroh 

21040  7o*70*HlKCT1  <0W1  ,T)  *  (  (i  .-UO**  (NPl)nCH-II  ) 

ZA«zr/Kwi 

Z9*o. 

Do  21  o9o  1  =  1  .NPiipch 

2l09o  Z9  =  79*FiiNCT1  <DW?,  T  )  #  (  ( 1  .-I/O  **  (NPiipCH-I  )  ) 

Zp»79/M*<7 

Z10*0. 

DO  ?1  Oho  1  =  1  *  NPl  IRr  H 

2l0*o  Zl  0*71  1/  +  FUNCT2  (DW1  ,T  )*  (  (1  .-US)  **  (NrURPH-l  )  ) 

Z10=Z1U/KW1 

711*0. 

DO  ?1 07"  1=1 tNPURTH 

2lo7o  Z 1 1  *7i  l*FIJNCT2(nw?,T)*(  (1  .-DS)**(NoURrH-I)  ) 

Zl 1*Zl 1 /KW2 
Z1?*FijNr7l  (DstNPiioCw) 

717*0. 

DP  F  !  ()Hn  1*1  » NPl  IPOH 
plORO  Zl 7  =  713* ( 1 .♦«)**  (|  P*-It 
Z 1 7  =  7 1 J*vpCl 
DO  2 1  nVo  1  =  1  ,  NPllRow 

?lnop  71.7  =  713  +  vC1*FuNOt1  (OCl «  D  /  f  ( 1 . *p>  •* 1 1 
714  =  r . 

DO  cuop  Is!  .NPlIRrw 

plino  714  =  714* (VPC1»( FLO AT (!)-l .1 / < ( » ,*Pl#* (T-LP1M  > ♦ ( Vrl*FUNCT? (Del* I) / 
1  (  (1  . *w ) ** I ) ) 

719=0. 

no  till"  1  =  1  *NPl)PrH 

21110  Zl  c  =  71b*  (  VPC2/ (  (1  .*P)**  <1-1  P2)  )  )  ♦  ('/C2*FUNCT1  ( DC2  *  T  )  /  (  (1  .♦»)*•  I)  ) 

7l F  =  0  . 

DO  21  l?o  1  =  1  .NPIIROH 

21  1  Po  ZlFaZlP* ( VPC2* (FLOAT) I) -1 . i / ( ( l.*P>  ** ( I-LP2) ) ) ♦ < V02*FUNCT2 < DC2* I) / 
1 ( (1 .*»)««!) ) 

717=0. 

Do  2i  1 3o  1  =  1  *NPiinrH 

2117o  7 1 7 * Z 1 7 ♦ (VWl«FUMrri  ( DW i *  I ) / ( ( 1 . *R ) ** I ) 1 ♦ ( (VPWI/KWi )*FUNCTi  (Dwi *  I ) / 
1 ( ( 1 .♦»)*« I) ) ♦ < (VR/Kwi ) *MjNrT  7 (PS*Dwl * T 1 / ( ( 1 . *R) **T ) ) ♦ ( VCWi / ( < 1 . *R) 
2** ( T-L C«1 ) ) ) ♦ (VPOl /  ( (1. ♦«»*•< 1-LCw 1-1  Pi ) 1) 

7l 9  =  r  . 

DO  2i  i  4S  1*1  *  NPl  iprH 

2114"  71  <5  =  71  <»♦  (VW2«FUN0Tl  (DW?*  1 1  /  (  ( 1  .  *R>  **  I ))  ♦  (  (  VPW2/KW2  )  *FIJNCT1  <Dw2*  I  )  / 
1  (  ( 1  .♦*)*«  I )  )  ♦  (  (  v9/K,j2)  *FijNOt7  {US*nw2,  T  )/((!.  *R ) ** T 1) ♦ < VCW2  /((l.  *R) 
?**  (  T-|.CwZ  )  )  )  ♦  (  VpO?/  (  ( 1  . *R > **  ( 1  -LCw?-L  p2)  )  ) 

7I B*0  . 

DO  21190  1  =  1  ♦  NPl  IRrH 

211co  7 1 P=Z 1 H* ( vwi «FUMf t?(DWi *1) /( (i .♦P)**I) ) ♦( ( VPWI/KW1 )*FUNCT2(Dwl *11/ 
1  ( ( 1 . *P ) *« I ) ) ♦ ( (VR/Kwi )  *HJNr  T  4 (US  *  Du  1 *  T  1 7 (  (1 .♦R)**T) ) ♦ (VCWi* (FLOAT ( 


211-1. ) / <  <1 • ♦R)*»(T -I  rwi)))  +  ( VPCJ  * (FLOAT  < I )-l . > / ( (j .♦R>*# ( T-LCW1- 
3LP1 ) ) 5 
72P«C. 

on  211  Ao  1=1  .NPIJRrH 

211*0  Z?0  =  7?o* (VW2«FUwrT?  I) /((,.♦«)••!>)♦( (VPW2/K*?) «FlJNCT?  <Dw2» I ) / 

1  (  (1  .♦«)#«  1 1  )  ♦  (  (VR/F'w? )  #MJNrT4  ( uSf  Ow?  *  T>  /  (  (1  .♦R1*»T>  >  ♦  <VC«2*  (FLOAT  ( 
2!)*1.)/| (l.*P)**(T-l  CW?n )*<VPC2«<fL0AT(1)-1.)/< (1 .♦R>#»(T-LCw2- 
3lP?) ) ) 

7?1*C. 

722*0. 

777=0. 

Z?4=r. 

7?=*r, 

Z34«r. 

73**0. 

Z77*o. 

IF(MSS.fC,C)GO  to  2200* 

no  21 1  /o  i  *1  ,nsr 

721*721,.  (VPCl*Drl  /  (  ( 1  ,  ,R>**  (  I-LPl  ♦  ‘■Pi  PfH)  >  >  ♦  (VCl/(  (1  .♦Rl**  (  I+NPDRC 
1H)  )  ) 

Z  22* 722*  ( VPC2*DC2/  (  (  1  .  ,R)  *#  (  T-LP?*a'PijpOH)  )  )  ♦  ( VC2/  (  ( 1  •  ♦R)  •*  ( I  ,NPUPC 
iHn ) 

7  22*7? j+ ( <vp* 1/KWi  ) / ( ( 1 .♦«<**( I ♦NPi'RCw) n ♦ (VW1/ ( (1 .,R)*« < I,NpURCH) 
1 1 1  ♦  (VO*i  «ni*  1  /  ( (1  .  ,pi«*  ( 1-LrWl  +NpUprH)  )  )  ♦  ( vpCl*Owl  ✓  ( (1  ,♦«>•*  (T-LCWl 
2-|  FI  ♦NKllPCH)  )  ) 

Z?$  =  7?<f  ♦  (  (  VW2*VPW?/kW2)  /  (  ( 1  .  +P)  **  (  T  +M5IIHCM)  )  )  ♦  (  VC*2#rw2/  <  ( 1  •  ♦R)  **  ( 
1 1-LCW2*PplJRCH)  )  )  ,  (Vr>r2«UW2/  (  <1  .  *P ) #« ( T -LCW2-L p2*NpURCH )  )  ) 

21170  72c  =  Z?t>,VS/<<l.  +  P)**(I  +NPUoCH )  ) 

z?4=vp‘-i  «nci «  float  (k'ssi 

7l=«VPC9«nC2*FLoAT (mRSi 
7  7** (VHn  *DW1*VPW) /KW1 ) *FLoAT <nSR) 

Z?7*  (VHr2*DW2+VPW9/k’W2)  *FLnAT  fuSR) 

2^000  COKtInof 
Z2*=r. 

Z27*c • 

72e=o . 

Z2R=o# 

?30*r. 

Z31=r. 

737=0. 

737=r. 

00  2201o  T  =  1  .NPlIRrH 

Z70  =  730*VPC1« (F)  0  A  T ( I ) - 1 • 1 

Z31 =731 ,VPC2* (FI  0 AT ( T 1 -1 • ) 

72P*72«,  ( vPwl/Kwl  )  *FiiN0t1  (nwl  .  1) 

Z2<5  =  77V*  (VPW2/KW2)  *ruNCTl  (0*2,1 1 
Z72  =  732*(VPWl/KWl,*r||NrT2(nWl,l)*Vr>C1*t»-L0AT<n-l.t 
2^0lo  Z33  =  Z3J*  (VPW2/KW2)  *F(|NOT^( p*2.1  )  +voC2*  (HO Ay  <1  >-1.1 
Z2*=VPLi *FLOAT  (A'PIIROH) 

Z27=Vpt,9*FL0AT  (MPllPOH) 

Z?P*72«  +  vPCl  *FLOAT  (MPijpCH) 

Z2R  =  7?‘y,VPC2*FLOAT  (MPlIOCH) 

KRt,B  =  n 

12  FOpMAy  (FI  0  .A) 

PR  T  NT  1  = 

lb  FORMAT  OH  ♦*PROHl  F«  INFORMATION*./) 

MMC0WS=1 cl 1  * IStfp 
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If  (KM  .rC  •  1 )  KMRnw^BMMRoWS^ 
IF  (KC?,rC  #  1  )  KMpOwctcMMpnwS^A 
IF  (KT3.FC • 1 ) NMRnwq.MMRnWS* 1 
IF(NSF.OT.O)  KMRnwq«MMR0WS*  1 
TF(KC4.ftF.l)KMRnWc;sK]MRnwS+1 

Ni)wv/'P  =  «=4?3#TSTrp 

NllWAR*M  MVAP^2 
MAyLPaS 


PRINT  ?r,NMPCWS 

to  FORMAT ( 1 h  *20^* T 1 o fAHROWS) 

PRINT  ?c  t NUM V AR 

2b  FOcMATHH  *20X*T1  ArIApLFj.) 

PRINT  3n  *  M A  XL  P 

-,0  FOBMAldH  »20X»no,cX*?6HI  p  PRURLF»'S  will  re  solvfo) 

IF  (KPiiH.NF.O)  pRTMt  T5»RUB 

lb  Fnnv»T(ih  .20X»??wIISfP-SUHpLIfl»  Rllo  if--. F10. 6) 

4n  rSyi^IJ'SsUISSIII^MsEM  hE«uEst-  t*»i  fe«sihle  points  E0„Nn 

1  PE  PRINTED) 

IF  (K1  .Nr.0)PPINT4C  t  _ _ _ 

4b  FOrMAt<1H  .20X.ROMTMF  KSEk  HEo^EST*  THAT  ALL  LP  SOLUTIONS  BE  PRINT 


^0 

Si 


:n 


lEn) 

IF ( k? ,nf # 0) PR INT  c  o 

FORMAT  <il-  .20X.44PTHE  IISEh  HFOUESTF  TM»1  THE  MATRIX  BE  PRINTFO) 

FnRMAT(i)-  .pOX.4iWTPF  USER  KEouESTR  Lp  INFORMATION  RE  PRINTED) 

IF (K4# Nr. 0 ) PH INt  S?  __ 

FORMATMh  ♦20X*AAwTMF  IISEk  K EguEST*  TMAT  THE  ENTIRE  LIST  RE  PRINTE 

ID  AFTF*  FACH  STa^F) 

FORMA t7TC 0>.?0X^ItmTME  user  HEOUFSTF  THAI  THE  MATRIX  BE  SCALED) 


ISTYPF ( i ) *0 
IqTYPF (?) ■) 
ISTYPF  C>)*1 


If(NFS.fC.0)ISTYPf(?)»-1 
IF(NSS.FC.O) ISTYPF (?) »-l 
ISTYPF (4) =-) 

ISTYPF  (O  =-l 

IfTYPF (x) a-1 
ISTYPF (7) =1 
ISTYPF  <B)=1 
I  ST YpF  (R)=l 

ISTYPF (1 r ) =1 
Ll.=  ll 

Li  1=  10*b*ISTEp 

no  icn)f  I=LL*Lm 
innip  IstTpf't)=-i 
LL= 1 1 .h*tstep 
LUa15.ll  * ISTEP 
no  inn<<n  TaLL.Ln 
100?o  ISTYPF(T)a) 

IF (Krl *fC.C)G0  to  1*0tO 

Lii*1  U*  I 

ISTYPF  (|  I  )  =1 

LMal.lUl 

ISTYPF  (j  L  )  C1 


Lllrl  IU  I 
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1  00?n 

1  un?e 
1  0040 

y  onc^r 

r 

1  nn*r 

1  i)Ob*> 
bo 
os 
C 

1  0  0  7  n 
f* 

Hr 

r 

s»n 


r 


1 1  s 
1 1  S 

1  1  7 


1  £« 
1 

1*4 

1** 


TMYPF  (|  I  )  c  1 
IF (Kr?.rr.o)GO  TO  jn04n 
po  1 0  Ojc  I  =  l • 4 

Li  t*Lu+ 1 

TSTYPF  (f  I  )  r-1 
lF(KC?.rC.O)GO  TO  ,*05^ 

LH  =  L  U ♦  1 
Trtypf  (i  i  )  =-1 

TF  (FSS.rC.O)  GO  TO  ,"06* 

LnsL  If*  1 

ISTYPF  ( I  l  )  --  1 

FMT  OF  rFTTTKG  Pom  tyPt 

IF  (KG4 .rc • 0 ) GO  To  1^067 

Ll  1st.  1 U  I 

IFTYPF  (|  l  )  =  -l 

ook  j I Nur 

PPTMao 

FORMAT ll hO  t 1 PHROW  TYPF--) 

P 0 T M  oc,  < ISTYPf  <  t )  «  T»1  ^NmoOWS) 

FOpMAT(iF  •  401?) 

Oo  lro/r  T  c  1 t  NMPOW^ 

VAPIAHI  r  CAPCS 
IOMK ( r ) -r 
POTMT  7c 

FOOMAT ( 1  bo f 1 7HCONVFV  T  TY  FLaGS — %/) 

PPU  T  op  «  (  ICHK  (  T  )  ,  Tsl  ♦  kjMPowS) 

FOpMAj  (  i K  ♦  P  f,  1 1  1 

«««««MOW  SET  UP  rl!TS  VfCTUo*  KLO,  ANp  Khu— 
PPTM  7r 

FocMAT  M  FrM?7HVApTAPLF  CAKns  Mt  PPOOUC  FD—  ,  /  ) 

DO  100  I  si  # kji iwv AR 
NOV  APs 1 
NoTKrm 
WORP-SOALTO, 

Ph«  Cano* 

TF  (fv  OVAn.NF.  I  )  C  At  I  rRp  (  1  ) 

]»"  /N0INC#E0.m  1  \C() 

H  rl.Fo.l)  1  1A,  117 

KLO ( I ) =1 

K  Mo (  I ) =  y 

00  to  iro 

T  A-KPO ( T- 1 ) ♦ 1 

IF  (  T  Y  .gt.^aXCUT)  r  All  FPP  {<>) 

KLp(I) =KR0 ( T-1 1 *1 
K«o ( T )  =KLO  (  T ) 

W  TO  )00 

IKI  *Eq.  1  )  1  ??,  1  ?4 

Kt.o  (  T  )  r  1 
On  TO  126 

1  a-kpq  ( i-n  *i 

TF  (  TX.Ot0MAXCUT ) Oa|  I  EPH(*1 
KLo  (  T ) =KR0 ( T-t  1 

IF ( <KLO< I ) ♦NCI Nf ) .OT.MaXCUt) CALL  FnR(9) 

KHn  (  T ) rKLO ( T ) ♦^OTNt 

ll- UoPn*EQ.wMMl  Gp  To  i4^ 

1  1  -KLO ( I ) 

I^rKRO ( I ) 

pi-  *r  no  tCiiTc  t  u  )  f  cuts  <  T?) 
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1 J" 
1  J5 

l** 

r 

U'' 

1  bS 
100 
r 

1  fin 


1  OOO" 

1  onon 

1  01  on 

1  fill  0 


F ophaT (2F1 *.A) 

PH  t  f  T  1  3b  *  <"  iitS  ( 1 1  1  *Cut5  (I 2  > 

FUPkAT  (  1H  ,?Ri  n.4) 

IF  (  (12-11)  .ro.DGn  To  loo 

I  X  =  1 2  —  T i-l 
DO  14n  )=1  ,  I  * 

CUTS  (  T  1  ♦  J)bCmTS(tI)  *J*  (Cl'TS  <  TO  -CUTS  (Ill)  /NO  INC 

<1<)  tO  100 
CUNT INUE 

*****HtDF  IF  WE  ape  TO  PEAn  IN  Cl  IT4:  baNUalLY 
Tw-kLO ( T ) 

1  7= KpO ( I ) 

HEAT  150 » (CUTS (J> .j*lw« I7> 

FUPBaT (pF 1 n ,A) 

PhTM  155*  (fiiTC  (  Jl  ♦  JaTWtl/) 

Format ( T  h  *BG12.4) 

CUMT INUE 

**«**wt  HAVE  COmpi  FtFD  rE  An  I  Nr  AND  CUTS 

POINT  Lf.r 

F opp at ( i Ho *?4HRhs  C"Pn (S)  oEPkuDHCrO--*/) 

P( )  )=o. 

R  (?)  *0*ApMl*  (  (1  ,_nwi  )  *#  (NPmHCh-1  1  ) 

B  (  7  )  =  0w  A P  M2*  (  (1  ,_nwp)  **  (NPiiHCH-1  1  ) 

HU)=ricninl*<  (1  ,-nri ) ** (NHnKCw-1 ) ) 

R  (4)*H(4) ♦B(2) 

H  (  c  )  r OCnL  0>2*  (  ( 1  #.PC?) •#  (NPiiHCh_1  )  ) 

R  (=  )  =H (c) +B (3  ) 

H  (f  )  =HHfiFM*71  2-nMiiM*  (  M  .-1)0  **  (NPUpCh-1  )  ) 

R  ( 4 )  *R  (  a  i  -  fZZSAPwARw  1  /Kvfl )  - 1 7Yb*0>wf  RPP/NwP) 

B  (7  ) S-HPTEM 

R(7)=H(7)+0WARM^/k’W^  +  OwAPMp/Kw^ 

B (S ) =_nprFN 

H(P)=R(Q)+B(?)/KWl+P(3)/KW? 

B(0)=n 

R ( 1 0 ) =UPFrEP 
11=11 

LI  Is  ]  n  ♦<**  I  STEP 
po  I o o Hr  I=LL«Lm 
B ( T ) io  . 

LL* 1 1 ♦P*TSTFP 
LUs 1 0 ♦ 7*  T  ST  EF 
DO  lonHn  T  =LL  *  Ll 1 
I  T  =  T  -l.  L  +  1 

b  (  t  )  «nn  (ID 

I  1.  *  L  1 1  ♦  1 

I I  Is  1  o  +B*  T  STFP 

po  1  01  on  I  =l.L  « Ll  i 
ITsT-LL.i 

P ( T ) =PT  (II) 

Ll  =  Ll  i ♦  1 
Lljrl  n.V*Ic;TEP 
Do  KM?  I  =LL  «Li  i 
IT  =  T-U  ♦' 

R(T)sUH«;P  (II) 

I  I  S|  IU  1 

LM  =  Q*  |  0*TSTF.F 
no  lf12o  I =LL  *  Ll  I 
IIsI-LL+1 
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n  m  r>  o 


101?n  R ( T ) sDooTPE (II) 

LI  = I  ii*  I 

Li  1=1  U*  IcTEP 

no  louo  I  =LL »Li i 

TT=T-LL*1 

1 nl4"  P ( T ) =Runo (II) 

Ui=Ui* ) 

H  (LID  sHpPijOG 
1.0=1  n*  1 
R  (1.0)  =  F'o|  OG 
l  1 1=1  ll*i 
R (LID  =0. 

Ln*l U*| 

P(LO)*o. 

LM=I  0*1 
R  ( L.  1 1  >  =o. 

LM=l 0*1 
R  (10)  =o. 

IP (KOi .rr .0 ) GO  to  ] A]5n 
L '  1=1  n*l 
R (LO) s-pnOS 
Lost  0*1 

R  (LO)  =-PNnsp 
L  ii*L  M*1 
R  (LO)  s-pf.nPHC 

lOlPo  IF (Kf>.PC.O)  GO  Tn  ,01*0 
Ln*l 0* i 
p(LO) =S| rPCi 
l  o=i  o*  i 
p  (l")  =Si  rPC? 

LO=LO+) 

H  (1.0)  =Sj  CPW) 

I  11  =  1  U*1 
R  (LO)  =b|  CPW2 

lOlftn  IP ( KCl .re . 0 ) GO  TO  l«)7" 

L i i  =  |  U*  1 
P  (L  li)  =o. 

]Ol7o  IP (NSS.PC .0) GO  TO  1  "  1  Pn 
Lll=LO*  * 

P  (1.0)  aSCTFM 

1  01  Rn  TP  (KC4.PC  .0)  GO  TO  IMPS 
LiIsLO*  ) 

R (LO) =0. 
mips  CONTINUP 

Emt  OF  pi-S 
FILL  IN  0 0LUNN5 
PRINT  17(1 «  (R  ( I )  ,  1*1  .NMpOWSi 
17"  FORMAT  (  l F  »PG12.4) 

CRT  oROW.R  (  ,  )  ,  ISTYPP  (  .  ) 

NpOW=NMDr ws 
no  RCdo  ijJ  =  l,NL)oV4P 
Jl =kLo (jj) 

J?  =  KpO  (  IJ  ) 

IP  (J1.pO.J2)  GO  TO  QnOO 
nrow=mhov*1 
Vn nn  CONTlNUr 


r>  ->  r>  r>  -> 


r 


II  sK'MWl)w<*l 

no  9ri v  i«I1 *nrow 

H ( T ) *1  , 

I  9TYPF  (  T  )  *-l 
9n|p  COK T  T NUF 

,  ADD  CLACKS  TO  OOFFF T C IEwT  MATRIX 

NF|.FMe(l 

NrCL»n 

nn  9 i oo  i»i.nrow 
NFLEM»NfLEM»1 

Nrri.aNCnL*l 

I A  ( NFl  FM )  a  I 
A (KFI  FM) a  1 • 

LA  (h'COl  )  eNELEM 
9100  COKTlNUr 

L  A  ( NCOL ♦ 1 ) *NELEM»T 


r 


FILL  IN  CCEFFTrTFMT  MATbIX 
NCCGUHai 

no  94n^  'V'J*1  »NUmVAP 
Jl*KLO(JJ) 

J?aKRO  t JJJ 

IF  ( J1  .1  T.  J2)  r,0  TO  9100 


L  J«  JJ 
I F  (  J  J.  GF  . 
IF  (  JJ.GF. 
IF  ( JJ.GF. 
IF(JJ.GF. 
IF ( JJ.Gr. 
I F ( JJ.gf. 
IF (JJ.GF. 
If ( JJ.gf. 
IF (JJ.gf. 
IF (JJ.Gf. 
IFIJJ.Gf. 
IF( JJ.GF. 
IF(JJ.Gf. 
IF (JJ.Gf. 
IF(JJ.Gf. 
IF ( JJ.Gf. 
IF( JJ.gf. 
IF ( JJ.Gr. 
IFIJJ.gf. 
TF( JJ.gf. 
IF (JJ.gf. 
IF(JJ.Gf. 
IF (JJ.gf. 
I F ( J J. to , 
IF(  JJ.F.P. 
iTVAPaO 


1 9. A , J J. |  F. ( )R* ISrtP) ) L J* i 9 
( 19* IStfp) .A.JJ.Lf. (1M*?*tSTFP) ) L J*20 
( 1 9*2*1 STFP)  .A.JJ.LE. <lfl*-»*  1ST  tP)  )LJ«2l 
( 19*3*1  «;TFP)  ,A.JJ.LE7(lfl4A«I<;TtH)  )LJ«22 
( 19*4*1 FtFP) .A.JJ.LF. ( lB*c*TCTfcR) )LJ«23 
(19*5#T9tfp) .A.JJ.LF. I 1 R* a* I FTfcP ) )LJ»24 
(19*6*1 ftF° ) .A.JJ.LF. (lR*7*IcTtR) )LJ*29 
(19*7*TFtFB) .A.JJ.LE. ( lfl*n*l9TtH) )LJ«26 
( 1 9*  8#  T  STF° ) .A.JJ.LE. tlfl*o*IFTfcP) )LJ«27 
( 19*9*1  stFP)  .A. JJ.LF.  <lR*iO*TSTf-P)  )LJ»?8 
( 1 9*1 0*1 CTFP) .A.JJ.LF. ( 17*1 1*1 bTFP) )LJ«29 
( 1 H* 1 1* IfTFP) .A.J  i.LF.  (1  6*l?*IbTFP) ) L J«3n 
( 17*12*1  cTPP)  .A.J  i.LF.  (1*5*  13*1  bTEP))LJ*3l 
( 16*13*Ictfp) .A. J  i.Lt . ( 14* 14*IbTFP) ) LJ«3? 
( I5  ♦  1 4*  I  ctfp  )  .A.J.i.Lf.  (1  -,*lc*IbTEPl  )LJ«3-, 
( 14* 15*1 CTFP) .A.J  i.LF. ( 1 ?♦ 1 F*T  STFP ) )LJ«3a 
(  13*  16*1 9TFP)  .A.J  i.LF.  (1  1  *17*IbTEP)  )  LJ»3*i 
(lp*17*TFTFP)  .A.J  i.LF.  ( 1  0*  1  fl*  I  bTEP)  )LJ«3A 
(11* 1 R*I FTPp) .A.J  i.LF . (9*1 9*1 STEp)) LJ®37 
(10*19*IFTFP) .A.Jj.LF. (fl*90*T9lFP) ) L J“38 
(9»2  0*T9TfP) .a* JJ.LE. (7*21  *  1ST tP) )LJ«39 
(8*21*1  f jFP )  .A.JJ.LF.  (6*?p*I*;TtP)  )LJ«4n 
( 7 *22* TFTFP1  .A.JJ.LE.  (5*2-»*I9TfcP)  )LJ»4l 
(6*23*  IFTFP) ) L J«*2 

(7*23*19 tFP) ) L  J*49 


IF (l J.FO.l9> ITVARaJJ-l9»l 

IF  (L J.FO.?0) ITVaP«JJ-i9-IStEP*  t 
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1F(L  J.tn.21 )  ITVaP*J.j-1Q-2*tSTFP*1 
IF  (LJ. to. 22)  ITVAP*Jj-l9-3*TSTrM*l 
IF(LJ.t0.?3) TtV*p«J)-]P-4*tStFH*1 
IF(LJ.tr),24)  ITVAR.JJ-19-5*tSTfM*1 
IF (L J.to.25) ITVAR«J  )-1q-6#tSTfH*1 
IF  (L  J.Frj.26)  lTVAp«j.)-lq-7*TSTFM*l 
IF (LJ. to. 27) ITVap.JJ-19-8*tSTEM*1 
lF(LJ.t0.28) ITViP.j  l- 1 q-9*  tSTfH* 1 
IF  (LJ. to. 29) lTVAp*JJ-19-10*lSTtP*l 
IF (L J.to.30) ITVAR*Jj-lq-l l*lSTtP*l 
IF (LJ. to. 31 )  ITVaR*J.J-l7-12*ISTtP*l 
IF  (LJ.FO.32) IjVORbJ  J-l A-lJ*IsrtP*l 
IF  (LJ.tr>.  33)  ITVAR*Jj-iq-l4#ISTtP*l 
IF  (LJ.  to.  34)  lTVaR*JJ-l4-lt,*lSTtP*l 
IF  (l  J.t  n.35)  ITVap»j.|-n-l6#lSTtP*l 
IF  ( L  J.t.0.36)  ITVAO*jj-lP-l7#ISTfcP*1 
1F(L J.to.37) ITVaR*jj-l i-lh*ISTtP*l 
IF(L J.F0.3P) IjVAR.J  )-l:-l9*lsTtP*l 
IF (LJ. to. 39) ITVap.J  1-9-20* rSTFH*l 
lFiLJ.to.4O) ITVAR»JJ-8-21*tSTfP*’ 

IF (L J.tn.41 ) 1 T Vfip* J.  1-7-22* tSTFk*  I 

DO  l019o  I=l,NMPnwS 
10190  YtEMP(1)sO. 

ni  Cfj  ( 1  ,*r)  **  (M  ao*MPUqCH*ws«;*I  jvap) 

D I  FC  =  1 ./CISC 

IF < ITVMD.GE.MA.aNn. TTVaR.Lt.Mh) DISr*OTSt*AMULT 
IF  (  TtVAd.GE.FB)  nr«;c»OI«:C*HMULT 

Go  to  (R0l00*80?0"*fl0300*Ho400*805o0*R0feU0*fl0700*R0800«80900, 

1 81  000. oi 1 00, 81?oo, PI  300 .RlaOO.ol 50 0*81 600, 81700 *B1 BOO »8l900t 82000. 
282100  .B92  00 ,823no ,o,40o ,82800 . B20oo , fl?7oo , 82800 , 82 900 , 830o0  * 83 1 00  , 
38320 C,«33 00, 834 Aft.835oR,tt3AOO.o37oo*83POO, 83900 *84000,841 00 *84200, 

484300)  ,1'J 
POloo  COKTlNtlF 
C  HFPF  10  081 

YtFmpi l,*Z13 
YTFMP (4) =-Zs 
1*10*1) *1 STFP 
YTFMP ( 1 ) *726 
1  =  32*1 1*1  STEP 
YTFMP(I)*-1. 

GO  TOt  BF000 
P02oo  CONTlNllr 
C  HFRE  lc  RC2 

YtEMP(1)*Z15 
YTFMP (q) *-Z7 
1*10*1 1  *  T  STEP 
YTFMP ( I ) *Z27 
1  =  13*1  I *TSTEP 
YtEMp (1)3-1. 

Gn  TO  BcnoO 
8030O  CONTTNIJF 
C  HFRF  ic  PWl 

YTFMP ( i ) sZ 1 7 

YtEMP (2) a-Zj 
YtEMp (4 ) *-z 1 
YTFMP ( 6) =Z0 
YTFMP (7) 3-| ./KW, 

YtFMp (H) 3-Zl /KW1 
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I  =  10*U*I?TEP 
YtfPP ( 1 ) *Z28 
1=14*1 1 *ISTEP 
YTPMP(1)=-1. 

1=15*1 l*TSTPp 

IF  (KC1  .*iF  .0)  1*1*1 

IF (KC?.mF.0> 1*1*4 

If  ikoi.we.O)  I*I*i 

if  (Nss.r-T.O)  I*I*l 

IF (KC4.MF .2) GO  TD  ncoO” 

1*1*1 

YtFMP ( 1 ) *  1 . 

GO  TO  HCflOU 
P04nn  fOMlNUF 

r  hfrf  if  pw2 

YtFMP ( L ) *Z19 
YTFHPl J, =  -Zl 
YTFPp  ( t>)  =-Z3 
YTEMP(h) =  Z9 
YTFPP (7) b-1 ,/KW? 

YTFPP(B) =-Z3/KW? 

1=10*1 l*ISTEp 
YTF^P ( 1 ) =  729 
1*1 *♦ 1  I *T  STEP 
YTFMp  1  )  ) =-l . 

I  =  l=*l 1 #  T STEP 
If  ( kC i  .nf.O) I*I*i 
IF  (KCP.N'F  .0  )  1*1*4 
IF  (KCl.wF .0)  1*1*1 
IF  (K5S.fiT.01 1*1*! 

IF (KC4.MF .2) GO  TO 
I  =  T  ♦  1 

YtFMP  (  1 ) =1 . 

GO  tO  M*000 
flocpn  OONTlNur 

C  HFPF  IF  Fl.PPC  1 

YTFMP  (  1 ) =714 
YTFMP (4) =-Z6 
1  =  10*1 l *  I  STEP 
YTpMP I  1 ) *Z3o 
I  =  i 2* 1 t  *  I  STEP 
YtFMP  1  1  )  =1  .-FLO/'T  (NplIRCH) 
I  =  l  =  *l  1  *  I  STEP 
IF  (  KC 1  .MF.O)  I*I*i 
I  =  T  ♦  1 

IFCKC?.mF.0)YTEmP(I,*1 . 

Go  TO  HFpoO 
PO  rP*TlNllF 

C  hfrf  if  c  lpnc 1 

YtFMP ( 1 ) S-Z14 

YTEPP(4)*Z6 

T  =  1 o  ♦  1  I  *  I STEp 

YTFMP 1 1 ) =-Z30 

I = i 2* 1 ) *  I  STEP 

YTFMp  |  1  )  =FLOAT  (NpllprH)  -1  . 

I  =  l**l 1  *  I  STEP 

IF  (KC  )  .MF  .0  )  1  =  1 

I  =  T  ♦  1 


TF  <KC?.»'F  .0)  YTEMP  (  n  =-l  . 
Go  Tn  H=r 00 
P07«n  ContInuf 
r  hfcF  Tf  «LPP C? 

YtEMPI 1) =716 

ytfmp  <  m =-zp 

1  =  1  P*  W*ISTFp 

YTFMP ( I . e  Z  3 1 

I»13*11*TSTEP 

YtFmP 11 ) =1 ,-FLqAT  (NpIJRCH) 

T  =  1 c*  1 1*T5TFP 

If  ( KCi  .me  . l) )  l*I 

T  *  I  ♦? 

lF(KC?.MF.C)YTEMPm»l  . 

oo  tO  «cpoo 

PORno  C^TTNHf 
r  HFCF  IF  FLPNC2 

YTFMP  (  i , S-Z16 
Y yFMP  ( S)  e  ?8 
1  =  1 n*i l *  T  STEp 
ytfmp  i  l ) =  -Z31 
1-13*1 1 #TSTEP 
Ytfmp  ( i ) -FLOAT (NPnnrH) -1 . 
1=1 c* I 1  *  T  STEP 
IF  (KOI  .  MF  .  0  1  1*1*7 
T  =  T  ♦? 

IF  (KCp.MF.ol YTEMP ( T) B-l . 
Go  TO  Pepoo 
POPon  OOF  T  I  Ml  IF 
c  HFCF  IP  ei.PPidl 

YtFMP< l) =Zlfl 
YTFMP  (  <>)  s-l?. 

YTFMp (4) =-Z? 

YTFMP  (*>)  =ZlO 
ytfmp ih) s-Zj/kwi 
I  =  1 r ♦ 1 l*TSTFp 
YTFMP! 1 ) =73? 

I  =  I  4  ♦  y  ■)  *  T  STEP 
YTFMP  I  l)  =  1  .-FLO^T  (NDllRrH) 
I=1C*1 1 *1 STFp 
IF  (KOI  . K'F  •  0  1  1*1*3 
1=1*-, 

IF (KO?.MF .0) YT?MP (T) *1 . 

GO  TO  Hcroo 
Plnno  Or^TlNtir 
C  HPCF  TF  FLPNWl 

ytfmp ( l ) =-zi e 
Ytfmp i =Z? 

Ytfmp ( 4 ) =7? 

YTFMP (b) *-710 

YTFMP(m=7?/KWl 

1  =  1 r ♦  1 1  *  I  STEP 

Ytfmp ( i i --Z32 

I  =  1 l *  1 1  *  I  STEP 

YtEPp  ( 1  I  =FLOAt  (NplipOH)  -1  . 

l-ic*l l«TSTFP 

IF  (KCl  .mF.0)  1*1*-, 

T  =  T  ♦  3 


IT (KC?.MF .0) YTEMP ( I ) e-1 . 

Go  to  hctoo 

Pll-'O  CONTlMIIP 

C  HPPF  K  SLPPW2 

YtFYPU)=Z20 
YTPPPn)  =  -Z4 
YjFPP  (S)  =  -Z4 
YTrMP (b) sZl 1 
YTFPP(H) =-Z4/KW? 

1  =  10*1 1  * ISTEP 

YtPPP ( 1 ) =731 

I  =  1  c  ♦  1 1*TSTFP 

YTPMP  (  I )  =1  .-FLO/lT  (NDIJBrH) 

1  =  1  G*1  1*KTEP 
IP (KCl .MF.O) !«I*3 

1-1*4 

TF(Kr?.MP.n)YTEMp<ii*i. 

Go  to  hcooO 
Pl2nr  CON  T  I  Ml  ip 
C  HPRE  TP  CLPMW? 

YTFMP ( 1 ) =-Z2C 

YTPPP ( J| sZ4 

YTFMp (b) =74 

YTPMP (b) =-Zl 1 

YTPMP (H) =Z4/kw2 

1  =  10*1  1  *  T  STEp 

YTPMP ( 1 ) =-733 

1=1 e* I 1  *  T  STEP 

YtFPp  ( I  1  =  FLOfl  T  (MpliRCH)  -1  . 

I  =  1  c  ♦  1 1  *  T  STEP 
If ( K  C 1 .mf.O) 1  =  1*3 
I  =  T*4 

IF  (KCP.MF.U  YTE^P  f  T  1  =-i  . 

Go  TO  HcOOO 
PIJao  CON  T  T  N(  IP 
C  HFPF  IF  FC1 

YTFMP ( l ) =  721 
YTFPP  (4)  =  1  . 

LI  =  lT 

Ln* i r* i cTEP 
00  Pl3nc  I =LL  *LM 
TTOOMS=T-LL*  1 

TP (TTCOmc.EO.I .OMO. (TTOONS-LPl > ,GF. < 1 -MSS) ) YTEMP (T ) =1 . 

IF (TTCOMF.EO.l.ANn. ( ITOONS-LP1 ) ,LT. (1 -MSS) 1 Y TEMP ( y ) =  1 . -DC  1 
IF( TTCUM«.GE.2.ANO. ( ITrONa.LP, ) .LF.o.aMU. (ITCONS-t  ,GE. (j-NSS) ) 
1YtFMP(I)=OC1 
PlJnP  CONTlMUP 

1  =  1  1*1  UTSTEP 
YtFPP ( I ) =734 
I  =  1  c  ♦  1  1*T<?TEP 
IP  (KOI  .MF.O  1=1*3 
IP  (Krp.MF.O  1=1*4 
I  =  T  ♦  1 

Tf<KC3.nF.0)YTEmP(T,*1  . 

Gn  TO  MFrOO 
P14r>f>  CONTINUF 
0  HFCF  If  PC? 

YTPMP ( 1 ) *722 
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YTFMP(S,=1. 

ll«h*i<;tem 
LU*i  c*/:*lSTEP 
nn  «l4«e;  T*LL»Lii 
ITfnN«;sT.LL*l 

T  F  ( IT  COM*  .  EQ.  1 .  amp.  ( I T  CONS-LP? )  .  OF  .  ( l  -K  bb )  )  YTFMP  (  T  )»1. 

IF  (  T  TTOmf  ,E0.  !  .  ANr.  (  TTfONS-UPj,)  ,LT.  (  ^ -NSS )  )  YTEMP  <  T) *i.-DC? 
IF(TTC0m<.GE.2.ANo. < lTr0Nb-Lp?) .I.F.O.AMJ. (ItC0nS-I  p2> ,GE. (1-NSS) ) 

I YtfmP ( l ) =  r)C2 

P14AC  FOK  T  T  Nl/F 

1=11*1  I  *1  STF  p 
YTFMP (  1  ) =73S 
I  =  1  r  ♦  ^  j»T5TFP 
IF  (KCl  .  MF  ,0)  1*1*3 
IF (KC2.MF .0)  1  =  1*4 

I  =  T  *  1 

TF(Kf3.MF.<))YTEMpm*1  . 
fin  to  Hcooo 
Ribnn  CPMTlNUF 
r  Hfcf  Tr  f w I 

YTFMP ( 1) *723 
YTF  MP  ( ^ . 

YtFMp (4) *1 . 

u  =  n* 

LiJ=  1  A*  1  ftEP 

nn  P1S(15  I  =LL  ♦  Li  i 

TTfOMS=T-LL*I 

IF  (  ( I  tCONs-LPI  )  .1  F#»  .A  Ml).  (  TTCdNS-t  *>1  )  .Ft .  (1-NSS)  >  YTEMP  (  I )  ePWl 
Plboc  fOPTINUe- 

LL  =  i 1 *2* I  ST FP 
Li  i=  1  ('*  j«ISTEF 

no  pisis  i=ll»Lm 

Iti"ONS=t-LL*1 

IF  (ITCum*  ,E(1.  1 )  ytfmo  (  I )  *i  , 

iFdTCUMC.GE.p.ANP.  (  iTFONb.LCWi)  .LF.f'.ANl),  (  I  TCONS-LCW  j  )  ,Gf.  <  -NSS ) 
1 ) YTFMP ( T ) =0 W 1 
Plblr  F.nKTlNUF 

1=1  1*1  1MSTFP 

YTFMPf 1) =7t6 

I=lc*)l *1  STF  p 

IF (KCl .MF.O)  1  =  1*1 

IF (Kfp.nF.O) 1*1*4 

IF  (KH.mf  .C)  1  =  1*1 

If (kC3.mf.0>  YTEmp I T 1 =1 . 

T  =  T  *  1 

If  (K'ss*F!T.0>  YTEMp  f  I)  =1  ,/K»m 
GO  TO  H  =  A  0  0 
RIAap  cfiktIniif 
C  HFFF  IT  FW2 

YTFMP (  1  )  =724 
YtF  MP ( 3 1  =  1 . 
ytfmp (Si =i . 

LI  =  11*1  STEP 
I  1 1=  i  p  *£. » I  STEP 
on  I  =LL  » Li i 

TTrrNs-r.LL*l 

I F ( ( I TCnN  S-LP2) .1  F.a.AnD. (tTC()NS-Lf2)  .Ft. (1-NSS) ) Y TEMP ( I )  *DW? 
RlfcAc  COT  T  T  MU  r 
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LI.*,  1  *a*T5TEP 
LI ),  1  o  ♦  4*  T  STEP 
00  RIMi  I*LL*l|i 
ITC0NS=t-LL*1 

IF  <  ITCUpiC.EO.  j  )  YTFMP  ( I  )  =l  . 

IF(lTC:0nc.GF.2./»^n.  <  ITcONb_LCw2)  .Lf.0.*M>.  ( ITC0NS-LCW2)  ,Gf.  (,-NSS) 
1) YtFHp(t)=0w2 
PIMP  CONTINIJF 

1  =  1  1*1 1#TSTFP 

YTFPP ( i , s  737 

I=1C*1  1 • T  ftFP 

IF  (KCl  .  *'F  .  0  )  1*10 

If  f  KCp.NF .c ) 1*1*4 

IF (KC^.mF.O) 1=1*1 

IF (KC1.MF .0) YTE^p (I  1 *1 . 

I  =  T  ♦  1 

lF(NFS.r.T.o)YTEMP(i)«l./KW;j 
GO  TO  Renoo 
PI  Ton  Co*  T  I  n1  ,r 
r  HFRF  IF  FS 

Ytfmp ( i , -725 

YTFMP (4) =-l . 

YtFmP  (V»)  *-l  . 

1=1 ) ♦  F>*t«TFP 
YTfpPr A,=1 . 

I=1C*1  1 *T  STF p 

If ( k  c i .mf.O, I*I*i 

IF  (KC?.F'F  .0> 1*1*4 

IFJKC^.mF.q) i=i*, 

IF  (K01*MF .0 1 YTEMP  f I , B-CAT 1 o 
I  *  T  ♦  1 

IF(F'SS.GF.1)YTEMP(Il*-nS 
Go  TO  n=p()o 
pipoo  co*tImiif 
r  HFPF  IF  FPKEP 

YTFMp ( i ) -VPREP/ ( ,i.*P>** (nfS  +  nKJPCm)  ) 

YTFPP (  Y, =1 . 

YTFN-P  (  1  n  )  a)  . 

1  =  1  ] *fe*T  STEP 
ytfpp ( i , =— l • 

1=1 1 *7*rcTEp 
YTFmp  |  1 , ,1  . 

Gn  To  BeOOO 
PlPor  CONJINUF 
r  HFCF  IF  r  i 

YtFPP i i , =  VC) *OIco 

If  (1t\/«C.EO.ISTFP)  yTFMP  (i  )  =v»SAL'/*rTSC 
1  =  10 

I=T+ITVPC 
YTFMP(i,,-) . 

I  =  T*i 

IF  (I  .1  F  .  (1  OMSTFP,  )  YTFMP  (Ii'I  .-DCl 
GO  TO  BrrOO 
RPOon  Co*  T  T  Nur 
r  hfpf  if  r? 

YTf PP ( 1 1 = VC2«0I PC 

If  ( I  Tv^  r  .EQ.  IStfp)  yTfMP  M  I  =VpSAL''*r  T  Sc 
1=10*1 STFP 
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I=T*lTViP 

YtP^p ( i >  * - 1  * 

I  =  T  *7 

IF  < I.lf . < io*2#IftpP) ) ytEmp  *  I )  »i ,-nr? 
fiO  TO  ben  00 
PP1  "P  CONylMJ^ 

r  hfff  if  i.i 

YTFPP  (  i  )  bOISC*  (V/Wi  *VPWl  /KWi  ) 

IF  (ITV„c.EO.ISTFP)  YTfMPH  )=VbSaL'/*CTSc, 

1=1 P*?*T«tEP 

I=t*TTV*C 
YTFPP(i)=-J  . 

1*1*1 

IF  ( I.LF  .  (1  (1*3*IFTFP)  )  YtEMP(  1 1*1  .-r)ui 

1=1 P*h*TcTFP 

I*I*ITV/IC 

YTFPP  ll)sl ,/KWl 

I=<5*1  y*T«=TEP 

lel  +  lTV/'P 

YtFPP ( 1 ) sVPWl/KW! 

1*1 *♦ 1 1  * T  STEF 
1=  T  *3 

IF  (Kfil  .NE.O.AMn.Tr'/AR.EQ.TSTFP)  YjEFP  ( 1)  »-]  ./Kwl 
fin  TO  o«=coo 
P??On  CnKTlMUr 

r  hfcF  if  v? 

YtFPP(  1)  =nisc*  <VW?*VPW?/Kw?> 

If  (  ttVaP.EO.  IStfpi  YTFmP(i  )*vbSAL',#DTFi; 

1=1 a*1*tcTEP 
I  =T  ♦  I T  v  /iP 
YTFMP (  i  ) =-l . 

1=1*1 

IF  (  T  .1  F.  .  ( 1  0*4*lFTFp)  )  YtEMp  i I )  =1  ,-P>w2 

1=1 n*h*TFTEP 

I  =  T*  TTV/iP 

YjEPP ( I  1*1 ./KW2 

I=0*1o*T5TEP 

I=T* ItvaP 

YtFPP ( 1 1 =vPw2/KW? 

I  =  1  F  ♦  1  UTSTFP 
I  =  T  ♦  1 

IF  <KC 1 .FE.n.ANn. ttvAr.Eq. TSTFk)  YtEYp ( 1» =-l ,/Kw2 
fin  TO  PFP00 
P23nr  rnNTlNUF 
r  HFCF  IF  Fl 

YTFPP ( 1 ) =nlSC* ( VHl *VPH1 /KH1 1 

If  (  ItvaF  .EO.  IStfpi  yTfmP  ( 1  I  =VhSAL»'*C  T Sc 

1=1 P*4*tctEp 

I  =  T*TTV/lP 

YtFpP ( l ) =-l . 

I  =  T*  1 

IF  (  T  .  I.  F  .  (10*5*IcTFP1  )YTEMP,I)=l.-nMl 

1=1 r*6*T?TEP 

I=T*TTvaf 

YtFPp ( I )*1 ./KH1 

I  =  <5*1 n*  t  c  TEP 

I=T*ITV*P 

YtFPP ( I  1 =VpHl/KHl 
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I  =  1  c  ♦  1 1 #  T  STEP 
I*T*3 

IF  (KCl .NE.n.ANn. TTV4R.E0. rSTEH)  YtEPP ( X ) =  -l , /KHl 
Go  To  ocnoO 
P?*nn  Cn^TlNur 
C  Hrop  IF  v? 

ytfpp  ( i )  *r»isc*  (vm?*vph?/kh?) 

Ip  (ITVaG.EQ. I Srpo)  yTfmp ( l > =VBSAH'*nTPC 
1  =  1 r*S*X'TEp 
I=I*ITVAP 
YTPPP ( i 1 r-1  . 

I  =  T  ♦  1 

IP  ( I  *t.F  .1  0*6«lSTPo)  vTEMpt  I  s  *1  ,-DH? 

I  =  i  p*f>*tcTEP 
I=I*TTV*C 

YtPPP( 1  I  =  1 « /KH2 

I  =<3  ♦  1  P*T'TF.P 

I  =  T*ITV/iC 

Ytf^P( I)rvPH2/KM? 

I=1C*1 1 « I STFP 

I  =  T  ♦  "5 

IP  (KC1  .FE.  0.  ANn.  TT'/AR.Eo.  tSTFh>  YtF.Hd  (  n  «-1  ./KM2 

Go  TO  pppoo 

COKTlMur 

r  HFOE  IE  PCI 

ytfpp ( i ) *  vpc l *n  t  pr 
1  =  10 

I=T*Ttv*p*LP1 

IF  (  T  .1  F . ( 1 0*1 STFP, , VTFMP  (  1 1 =1  . 

I=c*1 n*rFTFP 
i  =  i  ♦  i  r  v  a  p 
YTFPP ( I , rVPCI 
Gri  TO  Ei£rf,r. 

P?hOO  COKTINUF 

r  HFPF  IF  PC? 

ytFpp ( i , =vPC?*DTpr 
1  =  )  OMStFP 
I  =  I ♦ I T va  c  *LP2 

IF  »r.l  t .  ( 1  0*2*I«Trpn  YTEMF- t  1 1  =  i . 

I  «R  ♦  1 0*T«TEP 
I=T*Il VAC 
YTFMP ( I ) =  VPC? 

Go  TO  Mcroo 
P?7nn  CriFTlMllf 
r  HFPF  TF  C 

YTFPP ( i } =VS*C ISr 

If  (Itvmd.FO.  ISTFpiytfmp  1 1  )=vs«;ALV*oi<:r 
1  =  1  a*f,*t?TEp 

I=T*ITVAP 
YTFf'P  (  i  )  =-l  . 

1  =  1*1 

IF  (I .1  E. ( 1 o*7#IPTFP1 ) YTEMP( 1 1 >| .-OP 

1=1 5* 1 1 *tstep 
1  =  1*1 

If  (KCl .fE.o. ANn. ttvaR.EO. tSTfp)  ytF*p ( 1 l =-i . 

Go  TO  ocC 0 0 
P?  Pnr  CnFTlKJUF 
r  hfcf  if  e P 


YtE^P  (  M  rVsP#Dl«:r 

IF ( ITvao.eQ. I  STEP) ytfmp ( I ) =vspaLV*pIsc 

1=1 p*7*T«TEP 

i=t*Itvnp 

YTFHPII-.  =-l 

1*1*7 

if (i. i  f.  (io*e*i«:TFP) )  ytemp/I)  =  ,  ,-ncp 
i=io*«*t$tep 

I = I ♦ I TVAC 

YTFPP (  I  )  =  1  . 

Isic*, )*ISTEP 
!  =  !♦? 

IE  (KC1  .NE.O.ANo.TTVAR.EQ.tSTEE)  YtEPP(1)«- 
GO  TO  Bcp (10 
P29rn  CflMINUF 
C  Hfof  IF  FIPE 

YTFPP(l)=VPIFE*nie;r 

I*in*f,«i«TEP 

I*I*Itv«b 

IF  ( I  ,L  F , < 1 0*7*1 ftfPi XYtEMP(I)=-1, 

I  =  1  0*7*t<=TEP  v 

I=T*ITv*F*LPIPE 

IF ( I .LE,  (1  0*P*I<STFp)  >YtEHpvi>*l. 

1=1 P*9*T«TEP 
I=I*ITVflF 

ytf^p  m  =  i . 

G n  JO  beppO 
pjflnn  CONTTNUF 
C  HFCE  IF  TOl 

YTFMP(n=VCW)*DT<;r 

I=ir 

1*1 *1 TVAC 

IF  ( 1 .1  F .  (1 0*ISTFP) ) vTEMP (It**)* 

1=1 P*?*T5TEP 
I  =  I  I  tvap*LCi*1 

IF  (I.  I  F,  (1  0*3*1  PTFPl  )  YtEMP,I)*1. 

Go  TO  bcPOC 
pjion  CONtINuf 
C  HfcF  IF  TCW2 

ytfwp ( 1 i  =vcw2*0Tcr 

1=1 0*IStFP 

i=t*Itvnp 

lFd.lt.  ( 10*2*IFTFP1 1 YTEMP ( I ) =- 1 . 

1  =  1  0  +  -?*t?tEP 
1  =  I  ♦ I  Tv  Ap*LCw2 

IFd.lt.  (10*4*IPTFP)  lYTEMPfllai. 

GO  TO  HppOO 
PJ?or  CON  t  I  NlJF 
C.  HFBF  IE  7CH1 

YTFPP ( X i =  VCH 1 *0  T SC 
1  =  1  r 

I=T*lTVAq 

IF ( I. I E. ( 10+ISTFP, , vTEMP ( I, =-i . 

I=1 p*4*T«TEP 
I  =  I ♦ I  tv  ftP  *LCH 1 

IF (I .Lt. (10*5*1 ptF® 1 )YtEMP(I)=1. 

GO  TO  BCPO0 
PJ30O  CONTI NUF 


r  HFCF  If-  TCH2 

YTFVP(i)s\/CH2*Drcr 
Irl  P*  ISTFP 
IsT  +  Itv/'c 

IF  (  I .Lt  .  (1  0*2*1  RTFPf  ) YtEMH  I  I >  r-1 . 

1  =  1  p  +  ei*T<:TE  P 
I  =  T  ♦  I T  v  Ac  *LCf"2 

IF  (I. I  F .  (  1 0*6*1 «TFB)  ) YtEMP  /  1 1  r  1  . 

Go  to  ocrno 
R34«P  FO^tT^OF 
C  HFCF  IE  TWHl 

SllVrP  . 

KKs  1 

KKKrl  wHi 

00  P34|)=;I«KK,KKK 

P3«  oc  SUYrSUM*  (VPwi/Kwn*niSr*(l./((l.*P)**(I-l))) 
YjFhP  Ml  =c;um*vwhi  «njsc 
IrlO  +  ^T'TEP 
I  =  T  ♦  T  T  v  />  c 

IP  (I.  I  K,  ()  0*3*1  erFB))YTE^I  D*-l  . 

1=1 p*4*T«TEP 
I=T+ ITVPC+LWH 1 

IF  <1.1  E  (1  0*t5*IcTFPl  )YtEHP(I)=j, 

KK=i 1 *R*TSTFP 
KKKrl 0+7* ISTEP 
DO  P04 | p  T  =KK , KKK 
TT=T-(1?*6*ISTEP) 

IF(II.Lt.ITV4H)oOtOP3410 
IF  < 1 1 ,0>F,ITVAr*I  WH l  1  G0T0P3dl  0 
YtFMP ( I ) =1 ,/KWl 
R34IP  fONTINlIF 

KKs  1  ('♦  1  p«  TSTEP 
Kk  k  =  9+ 1 1 « ISTFP 
nOPJ4l^T=KK,KKK 
IT«I-<v*1 o*ISTEP) 

IF(IT.I  t.TTV4R)ootOD34i5 
IF  (IT.(jF,ITVAR*LWW1  irOtOBj^Ip 
YtFVP  <  1  )  SV/PW1/KW1 
R 34  1  e  CPK  T  I  NIIF 

GO  TO  Oc  p  0  0 
P3b"P  Cr^TINUr 
f  HFCF  IE  TWH? 

. 

KKs  1 

KKKrl  WH-? 

no  p3soct=kk,kkk 

P3s*e  SH^rSUM* (VPW2/KW?)«niSr«  ( 1  .  /  (  (1  .*<?)*•  (I~l  ) )  ) 

YTrHPM)=cUM  +  VWH?*nTt;C 
1  =  1  C'*3*TcTEP 
I=I*ITVaR 

IP <1.1 E . (1 0*4*IcTFP) ) YtEMH, l)r_l . 

1  =  1 "  *S*  T  «  TE  P 
I  =  1  *  I  TV  « c  *LWH2 

IF  (T.LE  .  (1 0*6*TSTFpn YTEHH( I)rl . 

K  K  s  1  1  I  STF  P 

Kkk=1 n*7« ISTEP 
DO  P0S| RJsKK.KKK 
ITsT-f |n*6*ISTEPl 
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IF  (I  I  ,LT.  ITVAH)  r,flTnP3^1  0 
lF(TI.faF,ITVflR*l.  WH?)GOtOPjg10 
YTFPP  (  T ) *1  ./KW2 
R3t>lp  CnFrlNur 

KKsl C  ♦  1  P« ISTFP 
KKK«Q* I i «  T^TEP 
DPO^FtSt-KK.KKK 
ITaT- ( v ♦ i o*ISTEP) 

If  (II.LT.ITVt>R)nnTnQ3si5 

I F  ( 1 1 ,  (tF #  I f  v 0r ♦  I  wwP)  00-^083^15 
YtFVP  (  r ) sVPW 2/KW? 

B3SIC  PPNT  T  Nl  IF 

Gn  t 0  RcpoC 
B30P*  CONTINUE 
r  hfcf  if  twci 

YtFpp ( 1 ) svwci *DT  Fr 

T  =  ln 

I  sT ♦  T TVAC+LWCl 

If ( I .IF . (1 0* ISTFP) ) vtEmP  ( 1 i *1 . 

I s  ^ p*?*t'TEP 

I3T*ITVAP 

lFII.lt.  (10*3*TFTFP) I 
GO  TO  PcPOO 
P37pp  ConTImM'’ 

C  HFOF  IF  TWC? 

YTFPP ( A) sVWC?*DTFr 
Isl P+ISTFP 
1 3  T ♦ I tvac*LWC2 

IF  (  T  .  I  fc.M0*2*lFTFP))  YtEMP  I  I  )  3  J  . 

T  s 1 P ♦ 3*T  c  TEP 

IsI+IrVAp 

IF  ( I  »l  t  ,  (1  0M*I<TFP)  )  YTEMP  1 1  )«•! 
GO  TO  MCPOO 
P3HPP  OOMTNUr 

r  hfff  It  thCi 

Ytfpp ( 1 , s VHC 1 *D  T  FT 
1  =  10 

IsT*Itvac*LhC1 

if 1 1. lf.  no* istfp)  >ytfmp»i»«i. 

i=1 p*4*tftep 
IsT+IjVAC 

IF(T.IE.(1C*5*IfTFP))YtEMPiI)«-1 
Gn  TO  BpPOO 
P3Pno  CpFTlNijr 

r  hfff  if  thc? 

YTFPP ( 1 ) sVHC2*DTFr 
Isl P*TSrFP 
IsT*ItVAF*Lhc2 

iFtr.lt  .  (1 0*2*lCTrP) ) YtEMP 1 1 ) si . 

Isl r*s*T'TEP 

IsT*Ttvar 

If  (T  .It,  (  10*6*IftfP) ) ytEHp  < I ) s-i 
GO  TO  HeCOO 
p^npp  ContIfiuf 
r  hfff  if  thwi 

YTFPP ( 1) sVHWl*DTFr 
T  si P*?*T'TEP 
T  s  t ♦ T  t  v  Ac  *LHit 1 


iFd.I.F.  ( 1  0  *3*  I  ST  pP  l  )YTt*K<I)*l. 

Isl P*4*TctEP 
Isl* ITVPC 

iFtl.LF.  (10*5*ISTFP)  ) YTEMP f  I) *-l . 

GO  tO  HC(lOO 
P*10B  CoKTlMir 
C  HpCB  if  THW? 

YTFMP ( 1 ) »VHW2*0TSr 
Isl n*3*TSTEP 
Isl ♦  I  tv ac *LHw2 

iFd.Lfc  .  <  1 0*4*1 STrP)  )  YtEMM  (I)el. 

Isl  p*is*T?TEP 
IsI*ItVAC 

iFd.Lt.  (10*6*I«TrP>  )YtEMM,I)b-1. 

GO  TO  bcfOO 
n*?no  CoMyiNur 
r  HFCF  IF  THW1 

YTFMP ( 1 ) s  ( Vw  1  ♦  VdW  1  / K W 1  )  *ZZl  ♦?7ij*VS/KW1  ♦Z/1*VCW1  *VPC1*ZZ4 

ytfmp  (?)  s-  ( ( l  ,-nwi )  **  (mPijhoh-i  ) ) 

YTFMP (4) sYTEMP (?) 

YTFMP  (6) =7Zs/KWl 

YtFpp  rt)  s-i  ./Kwi 

YTFMP (b) r  YTEMP (?) /KWl 
Isl P*1 1 *ISTEP 
7  7  7  s  0  . 

no  P4?nc  1 1  =  l ,^'Piiroh 

Wne  117*77/*(  (I.-OWl)«*fII-l)  > 

YtFMP ( I ) sVPCl*777*VPWl /K*i 
IslP*l  1  *  T  STEP 
If  <  kg i .mf.O) 1*1*3 
IF(KCP.ME.O) 1*1*4 
IF(KC3.MF.C>  1*1*1 
If (nSs.pt  •  u ) 1*1*1 

lFtKC4.ME.DGO  TO  Be  0  0  " 

I  =  T  ♦  1 

YTFMP (I) *1  . 

Go  TO  bcfOO 
P*3oo  TON  TTNur 

r  hfof  if  TRW? 

YTPMP ( 4 ) s ( VW?*VDW?/KW2> *7^1 ♦7Yi»*VS/KW,*ZY1*VCW2*VPC2,ZY4 

Y  TFM  p  ( 3 )  x  •  (  d.-OW?)**(NpUwOH-l  )  ) 

YTFMP (S) s YTEMP (3) 

YTFMP  ( fi)  r?Y5/KWp 
YTFMP (7) s-I ,/KW? 

YTFMP (  H )  3  YTFMP(3>/KW2 
Isl P*1 1 *TSTFP 
77Y -r  . 

Do  P43o*  TIsI.Ndiipfm 
P43P*  77YrZ/r*  (  (1  .-Dw?) •• ( 1 1-1 )  ) 

YTFMP ( n  sVPc2*Z7Y*Vdw?/KW2 
IsI **1 J  *ISTFF 
IF (KC1 .ME.C) 1*1*3 
IF (KC2.MF.01 1=1*4 
I F  ( K03  .MF.O)  1*1*1 
IF  (MSS.OT .0)  1  =  1*1 
lFtKC4.MF.DGO  TO  Pc  0  f  " 

Isl.l 

YTFMP  (  1  , si  . 
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Gn  TO  Hcf}00 

r 

ftbono  CONjjNur 

r 

On  9  ?  70  Is]  fKHRnwc 
YTF^Pl *YTFmP ( I ) 

IF'  (ARs  (YTEWPI )  #i  f#7t0i  ZE)  GO  TO  0270 
NPLFWeNFLEM+1 
I  A  ( NFI  FM)  cl 
A  (NfLFR) rYTF^Pi 
9?7p  ContInuf 

N  r  C  L  s  n  C  n  L  ♦  1 
L  A  (  NCOL  +  1  )«NFLEm*i 
On  TO 
r 

93pp  DO  Q390  j=Jl ♦ J2 

r 

On  93P(t  T  =  1  t K Mqnwp 

Call  GfcTPHl  (I ,  jjf  r!Jrs(  J)  f  atEMp) 

IF  ( AKS( aTEWP) .1  F.7tOL7E)  60  10  97ft o 
NflFRjcNfLFm^  1 
I  A  (NFLF^) =1 
A  (NFlf;  Ml  sATENP 
Viftn  CnNTTNUr 

NFLFMaNFLEM^ 1 

TA (Atl  FM) xNMPOWF+UCOGUR 

A  (NFI  FMl  -1  . 

NCCLsNCOI.  ♦] 

I,  A  (PCOL«i  )  =NELEm^  y 

rONTlNUf 

NC  rG  OH  *kTo61JR  ♦  1 

V4no  CONTTNUF 

IF  (NFl  tM.GT.PAX  A  )  r  A1  L  FRR(i) 

?no  focpatiiFAS) 

?bn  FdORAt(pAio) 

beading  in  Data 
up  5TaPtT*»G  b  AS  I  f 
DO  9 ?0 0  I  si  , MpOw 
Jh ( T ) s  T 
q?0f>  KH'PAS(I)3T 

TF (Ks.tn, t) CALL  9CATL 
lF(K?#i\r.0>  36^*77* 

3*r  PP  T  ^  T  3*1 

36 1  FnqMT  (  ihO  tSEHPArKFn  Ma  jR  I  y  fly  COLh^f*  *0w  NyMREp  BELO*  FACh  ELEM 

1  ENT  ) 

I  y  T  sMF  L  1 1  ♦1 

no  76q  Tsi  ♦  l;<i 

KKr ( T- 1 ) « 1 1 ♦ 1 

IF  (  KK  *  OT  .  Nf.LEM  )  GO  JO  370 

K- KK ♦ ! 0 

IF  (K.Gl  .^ELEnK-^FLFM 
POINT  3 AF ,  (A  ( J) f JrKKtK) 

PPTNt  3^7 f  (I A ( J)  « JbKKvK) 

30A  F ncp A t  (ll-P  «1 161  ?,4  ) 

367  FCPMA  T  ( 1 H  fllll?) 

3^5  CONTTNUr 
37n  CnNjlNur 
POINT  ?op 
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o  o  *■)  o  ^  n  o  t  -) 


FfiRMfT  1 1  K  1  «  19HstAptTNG  T°  TTE^AtE) 

PPTNT  3on 

Jon  Format  ( 1  l-0*4X  f  13WctagF..PROrLEm»7X,i  1  hi  OwfcP  BOUND ,PX *  1 1 HUPPER  BOUND 
lf(C,X,lHnppANCRlNr,  \/aPIApLE, //) 

*#*#«pMrY  TC  StApt  LOOp 
•****Pf AT Y  TC  STAOT  LOOP 
«H»#**WEArY  TC  STAPT  LOOP 
*****HtArY  TC  stApt  LnnP 
1)0  PRO  Isl.LCTMAX 
TODVR ( I ) so 

yro  /LcLR ( I ) *1 .FPn 

PAPFNtst.O 
LSTKP (1 ) =0 
ICTKL ( , ) sn 

STFPPH=0.n 

LCTNIIMsS 
N|  P*c 
TRPPABs; 

N0| FT=i 

DO  P9pT  =  l  .MIImVAR 
KL ( T ) *KLO ( T ) 

V9n  KH ( T) =KBO ( T ) 

loon  PD T NT  1 r r 5 * STGPPR 
lOOc  FORN^tMI-P.bX.f*,!  ) 

NOl.rTcNOLFT-1 

NLp*NLP*i 

TP  (MP.OT.NAXLP)  CALI  ERR  (  4  t 

jKrKPO (Ml MVAP ) 

DO  6-50  0  Jsl.jK 

P100  W ( J) sO • a 

Call  i. T mPRG 

IF  ( K T  .fcn.  1 >  CALL  l.npp  (W) 

TFfLFLR.NF.DGO  To  lOlo 
If  (M  P»FC«  l )  CALI  fpo(B) 

P  P  T  n  T  i'-oR 

loon  FogmAt  (ll-*«?4Xt  1  IHLp.  TNFEaS.) 

Ga  TP  UnfO 

loin  IF  ( V  Al  -nl'RTOL  ,LF  .RIIR  )  Go  TU  10?0 
POINT 

1  0  1  c  FpPNA  T  M  I-  **?5XfPM|  R  PT  HUB) 

6n  to  brrn 

#*#**PUT  THIS  PPOpLfm  on  TmE  I  1ST,  FIND  THE  NEXT  fmPTY  SPdT 
10?0  TF  (|  Sim  M.GT .LSTMAX) CALL  FHR(6) 

P p T N t  1 r?S  ♦  VAL 
lo?c  FOCNA  T  ()  I-*  *25X*0,1  ?  .4  ) 

LSTM)M=i  e  tNUN  ♦  1 

7|  cxN0(|  <=TNUN)  =PTOPoR 
7|  Ftp  A  (I  CTNUN  )  SPA  OF  NT 

IF ( TBRKaP.NE.O) | STKL (LSTNUm) =kL ( TrpPaO) 

TF(TRphAR.N^.0)l  FtkP(LsTnUm>=I<k(TrPpAo) 

7l SLR (LPT  MUM) s  V  A  l 
**«**NOT  DONE  W  T  TM  LIST  YET 

»*«**rHFATE  XCOOFO,  COMpAtrlFTtn  VFPsTCN  OF  X — ELFMENjS  Of  XCODED 
*****flHF  X,  IF  x  OOORESPONpiS  TO  A  I  UFA*  VARIABLE.  OR  ELSf  THE 
**«**MtAK  Of  GUrrfo  VAPlAOl ts 
DO  I  030  1  =  1  ,M|)mvAc) 
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IF  (KLO(i)  .Mr.Kon(T)  )m  to  ioao 
I  IsKLOm 
XCOCEIX  I)aW(TTl 


GO  TO 

1040  XOnrED ( I)Sn,n 

IWaKLo  (  T ) 

IZ*KRn ( T ) 

DO  10=0  lT«Iw»IZ 

in  =  n  XCODEn  (  T  )  »XCnUEo  f  I)  ♦*»  ( III  *CIITS>  (  T  I ) 

1030  rO^flhuE 

r  *****xcnrED  CREatfd.  CwECK  it 


no  1  06<1  I»1  ,KM|MVAP 

IF (KL0< I) .FO.KoO ( T ) >Oo  JO  106o 
TL-KLO(I) 
i  r?-KRO  ( I ) 

XX|  sCUTS  <  It  )  -OIITTOL 
xxoiCUTS (IP) ♦  hitToL 
IF ( XCOnrr (I) .LT. XXL) CALL  EoR(7) 
iF(XCnUFfMl)  .GT.XXP)CA|  L  E&HI7) 
lOftO  mKTTNUr 

c  **#**now  WE  k ILl  TOy  TO  FImU  an  IJOpER  POUNO  AND  A|  SO  A 

C  **»#*rhaF CHTNG  VAPTarLf 

IFFASeO 
OTFFma*p.O 
IRFVR  (|  cTNUM) *o 

l)«=l  .Fir 

DO  2000  lROW-1  .NMoOW*, 

IF  (  TCHK  (  IROW)  .FO,  )  )  GO  TO  *!000 
How V  AL  =  0 • 0 

Do  20io  1*1 ,nUMVoH 
r  **« **sF t  INOEX  amo  frao 

TWsKLO ( T ) 

T  7 sKpO ( T ) 

IF(TW.Fo.IZ)700=,7010 

700c  iMDFXr-i 
Fo«C*o.r 
Go  TO  7qc 0 
7010  Ih=I7-1 

Do  7;  jb  IJ=II»,Ih 
IK= I J*  I 

TF  (CliTat T j>  .LE.xronFn (T ) .AmU.CuTS(TK) .RT . XC00E0 ( I)  )G0  TO  7025 
70ic  TOKTlNUF 

xxxcCu 1 c ( iw) -xconFn  ( i ) 

X  x  x  *  A  H  i  (  X  X  X  ) 

IFIXXX.I  T.CUTTOl  )R0  TO  7010. 

XXXeXCOOFn(I)-CllTF(T7) 

X  X  X  =  AHS ( X  XX ) 

IF  (XXX.j  T  .CllTTOl  >  P’0  TO  7017 
CALL  Fkr ( 7 ) 

70?C  FRAC*  (XfODEn  ( I  )-OllT5  ( I  I) > / fCUTb ( IK) -CUTS  ( I J) > 

iNCFXslj 
GO  TO  7000 
701  A  I M  r  F  X  =  1 w 
FPAC=0.^ 

Go  JO  7onn 
7017  I MTFXs  17 

FR  A  0  =  n • p 
7*0  p  CoK  T  T  Ni  IF 
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CC\?C\ 


?01  n 

*nsr» 

A? 

*nA-> 

^04* 

^OTft 

^nnn 

r 

r 

cone 

JO  a  n 

J  0  o  c 

J01  0 
r 

30?n 


OIFF*'.* 

n0  ?^?0  I  T#  *  T/ 

TTsT.UNoOW 
tnocoL*I.a  (  T  T  ) 

TwnNvT*|  A  ( i  r  ♦  1  )  •  1 

no  203A  T  t  T *1 NnCCl  1 1 NDNXT 

TF  <  TA  (  t TT)  *NE#tr0W) bv  Tn  2030 

T F  (  TNUFX.Nt ,-l ) nirF*UTFF-W ( T J) «A ( I T I ) 

TF<TNUFX#fu.IJinTFF«uTFF*<l#-FHAC>*A<III) 

TF(lNI)frX#Fu.-n«^wvAt=pnwVAL>irCOOEO{  I)*A  (III) 

TF  (  TNufX.fu.T J)NrwvAL«PDwVAL^ t 1 ,-FPAC )  *A (II  I  ) 

IF  (  (  IndEX*  1 )  #Fo.  T.l)  UiFF*DTFF*FRAC#A  ( I  T  I  > 

IF  (  (  Index*  1  )  *Fn*  I.l)  hUWVAL  »ROWVAL+FrAC*A  (III) 
COmT  I  Ni  iE 
rOMT  TNIJF 

TF ( T^TYPF ( IRCW) .F0.-1 )nlFF.ARS (OTFF) 

IF(DlFF.LT#nTFFMA^0TrFTn>G0  TO  ?0i0 
D  TFFM a  =o I rF 
FLAG (1 StKUM) slNnFv 
FL  AG  (LStMJM)  sFLAG  (L^TNllM)  ♦  FHAf 
IBhVR  (I.RTNM*)  *1 

Con  t  I  miif 

IF  (TSTYFE  (TpoW)  )?"40»?0Sn*20Ao 
ho-qOWV4L 
GO  Tn  ?0l‘0 
IF  (P  ( I wr.u  )  )?n6l. 

IF(POwva|  ,LE. (H ( TPO^M  * (1 .-fEASTL) ) )  GO  TO  2000 
IFF4c= l 
Go  to  <?Frn 

I  f  fpow v  aL  . 1 J  .  FE ^t|  )  r,o  TO  ?0nn 
TFF AS= | 

Go  TO  d  *  *  P, 

IF (PowvM  *LF# (B ( TPOW) * ( I .♦FtASTL) ) ) GC  TO  ?000 
I FF  A  S  r I 
GO  yO  d r  0  0 

IF  <ARS(R (IPOW) ) .E0*0*n)Go  TO 
XAyrl*-4dS  (POWVAL/b  (  TuOW)  ) 

TF  (  AMS  (  XXX)  #(  T  .FE  Abl  L)  GO  10  ?«Or) 

TFFAS=1 
GU  TO  ?00O 

TF  (  ARS  (POWV  Al  )  .1  E  #F  EA<;T  L  )  O0  TO  PO  00 
T  F  F  A  S= i 

ryF  T  INije 

*#«##D(jmF--WE  H  a  VF  P  T  CkEO  a  RmaNCHTNg  vawtarle  ANn  stored  tt  on 
«#o#THr  LIST  WHTi  f  TESTING  FOR  FfASTMILITY 
TF(T^F'Ac#NE#1)GO  to  3  0  n  o 
PdTFt  dor  5»  IPRVo  u  rtNIJm) 

F pn  M  A  T  (IF*  ♦  f  49  X  «  4HMOMF  •  1  6X  *  t6) 

GO  TO 

Pp  T  F’t  ^ o  r  S  »  ijR  1 1  Pp\/Q  ( L  stN(Jm  1 
FORMAT (?P*#45X*G1?.4#19X*Ia) 

If ( TXP0Tk  #EQ.l)rM  l  yPPl^T fXCOuED) 

IF  ( i  |P  .L  t  . HUR  )  GO  To  -»01^ 
go  to  b«no 

PI  IRcUh 

no  3o 2n  1  =  1  ♦miimvap 
*#*#*mow  regin  RPANrHTMG  HoOCFuUPE 
xdfct ( I ) sxronFn  ( I ) 
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bnon  IF  (KOI.  F  T.EO.O  )  GO  TO  5o*=0 
r  **«**bU|  V E  NEXT  PROpLEm  In  This  STaGF 
KL  ( TPRF’aR ) =KHL (mol  FT) 

Kp ( IPrHar ) =  KBr (mol  Ft) 

STGPPHsctGPRBt.  i 
Go  to 

C  **«**wt  ARRIVE  hfpf  if  we  aHE  uONF  with  a  STAGE 

pnpn  Niiv^p 

B L  p * 1  ,E 7" 

DO  e 0^0  1  =  1,1  StNUm 

IF  (7LSLR  (I)  ,GF.rLp)GO  TO  b0(S0 

NIIMs  I 

HLPs7LSLB  (  T ) 

S'1*''  CONT  I nije 

IF  (PI. H,GE»l,E70)OALl  ErR(H> 

IF (PLh.of.BUP-DontOi ) GO  Tu  Bono 

r  **«**NUw  is  TnE  FMTRY  ON  TwE  LIST  ON  WHICH  WE  ARE  TO  BRANrH 

pRA-a  FOCHpT  dH0*20HDONr  WITH  ThtB  S I  AGF ) 

IF (TRpVp(NUH) ,Nf.F)00  yO  5n6 4 
CALI  Fwo ( 9 ) 

S06a  PRINT  b^F3 

PRInT  B"FS,BLB*Rhb,7LStfjO  ♦  IBpwp  (  WI'M) 

bnAc  FnPwATliH  *6HBLp=  ,G17.4«nH,  bIJR*  ,G1*.4»22H»  BRANCHING  ON  PROR|_ 
1Em,Fp. 1 ,17H»  VARTari F  NUMopH,!^) 

TF(K4.Fn.l)PpINT  R0<.pl 

FOA=1  FORMAT  (  i  HO  «  32H**********PHpSENT  STaTIJP  UF  LIST) 

If  ( «4 • to, 1 )PRINt  roa52 

SOAR?  FOpMAT  (  iH0*6HpRnp,.o,SX,6HHAHENT»SX,6H|  I STKL , 5X * 6HL I STKR » 5X , 

1 1 1 H|  nWF  o  HOUNO.py , 1 phRdANCh,  VAR, , pX , 4HF L AG, /) 

IF  (K4.F0, 1  )  50febP,cn,c,e;7 
GOAPi  on  Pa ni)R  I  =  1«LStNiiM 

POTAT  Brnnl ,ZlSTNO( t) «7LSTdA( T) «  I.PTK((i),  LSTKR(t) 

POnoi  format  <  T  h  ,F(, ,  1  ,«;y  ,r6.  i  *sx .  Ip.oX,  1  = ) 

TF( 71  PLR  f I ) ,GE«1 ,F7fl)5S0 02.50004 
P00O?  PRINT  Bor  03*  IBRwp  (  T  )  ,F|.  AG  (  T  ) 
rOO or  FPRMAT(iH*,4eX,PHOFF,4y,9X.l4.9X,FlP.P) 

GO  TO  Bopo9 

R0004  POINT  B«nnS,ZLS|  Pm  ,InRVw,I)  ,M.AGrT) 
qoooc  Format  mh**44X»pi  1 ,1, 9y»  I4.9x.no.->) 

POroo  CPNTlf-'ijr 

PPTAT  Sn AP6 
P06PA  FORMAT  I 1  H  O ) 

P  0  A  p  7  COATlMUr 

P A RFf,iT  =  7L  STajC  <NMM) 

TRRPAH=IPRVR (NUm) 

r  . .  we  KNOW  THF  PaBENt  ANu  RRaNchTNW  VaRIabLf  FOR  THf  Next 

C  **««*STpCF--SET  Dp  7  Or  3  mEW  mROri  EMP 

c  **,**F)|,  kl  ANn  Kr  vErTOh(p 
no  c 0 To  I  =  i  .mimvAr 
KH ( T ) =KR0 ( I ) 

Bn7n  KL(T)=KL0(T) 

ZNPACK=7LSTNC (NDm\ 

nu  cOBO  1  =  1  ,Ml|u 

I  I-MJM-I  +  I 

IF  (  7NBACK.FO. A . o) GO  Tn  5110 
if  (7LSTN0( IT)  ,MF.7NRArK)bU  TO  ppPn 
00  50Ro  I »'=  1  , NUm 

IF  (ZLPTMn  I  TK ) ,Eu.7LS IPA ( T I ) ) Gy  TO  5095 
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snon  CONTlMlr 

3n<?c  T I T  =  IBRVR ( TK  > 

II-  (  .NOT.  (  (LSTKL  ( I  T)  .far.Kl  1 1 1 1)  )  .  AM).  (LSTKR  ( I  T)  .LE.KR  ( 1 1 1 )  )  )  ) 
1  fit)  TO  s  i  u 

KL  (II  I)  sCSTKI  (ID 

KW ( I  I  I ) sLSTKP ( T I ) 

R10P  7mmack  =  2Lstpa  (  t  I ) 

bnnr  continue 

31  IP  rnNTiNUr 

r  #****NOw  HAVE  TO  OTVTOF  UP  THF  K-SfT  FPH  the  RRANfHlNG  VARIARLE 

r  *««#*Ht)T  FIRST*  ppmpiVE  THf.  P4PtNT  pROnL tM  FROM  THf  LIST 

71. cl  R  (N||M)  =1  .E?p 

r  **«««SFT  DP  TWO  OP  THRFE  PoOR| tMS 

IF  (  (I- 1  mo  (MUM)  .LT.kL(TRRPAW)).OH.(FIAfi(FUM).GT.KR(TtjRPAR))) 

1CAI.L  F h o  ( 1 1  ) 

r  **«««CMrCK  TC  Sff  if  FI  AG  pKEflSELv  EODALS  SOME  CUT 

Iw-KL  ( IPRPAP) 

I  4i:Kp  (  IRrP  Ap  ) 

1)0  c  1  2(1  Jsrw',17 

X  x  x  =  7  J-FL  AO  (  M|  |M) 

XAy=ABS(XXX) 

IF  (  x  XX  .  LE  .  fil  ITTOL. )  oO  To  R.jO 
31  ?r  CijNT  INUE 

IXsFLAU(MIM) 

IF  (  TX  .tO.KL  (  IHRPftP)  ) GO  TO  *140 
KRL ( 1 ) =kL ( IRppAo) 

Kro ( 1 ) =TX 

Kq|.  (  ?)  =  r  x 

KRc (?) =TX*1 

I F  (  (  I  x  ♦  1  )  .  EO  .  KR  f  T  pRo/iP )  )51cO*S16p 
Slqp  NOI.FTs? 

Go  7-0  ft p  r  () 

3 1  A  P  KR|.  (  3  )  =  T  X  ♦  1 

KRC  n)  =  *p  (IRRPAP) 

Nnl  Ft  =  t 
fio  to  opt n 

3 1  4  p  K  R  I.  (1  )  s  T  X 

KRR ( 1  ) = I  X ♦ 1 
KRL  (?) =T  X*1 
KRO  (?) skR ( IRRPAft) 

K  OI.  F  T  =  ^ 
fiO  TO  Ap  r  0 

310p  IF ( ( J.tO.KL ( IBRPxn) ^ .00. ( J.tO.KRl IDRPAR) 1 )CALL  EHP(IO) 

KRI.  ( 1  )  =k-L  ( IRRPAp, 

KR  c (1  ) =  | 

KPL  (?) =  I 

KRR (?) =*R (IRRPAP) 

MOL  FT  =  ? 

bppr  T  X  X  =F  TboC  P 
STfiPPR=TXX 
STrPPH  =  CTGPP|)+  I  . 
fiO  TO  p R  p  p 

*««**!, UA>E —  PRImt  out  the  DtSliLTS 
ropp  COKTlMUr 
ROIp  FOQMATlfHtflAl(l) 

P3TMT  Hp?0  *RIB 

HO?P  FORM  A  r  ( )  R  0  *  3  1  HOr  JFOt  I  Vf  FUmCTIUN  AT  CPT1MIJM  *612.4) 
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Trf!STS=TCOSTS»BiiB 
ppjkt  es^fTCOSTR 

FORMAT TOTAL  nISCoUNTtD  CoSTR*  **F10»3/) 
PPTNT  «o?0 

smo  FORMAT  (i(-0*28hvAPTAOLE  VALntS  AT  OPTIMUM--) 

CALL  XHojNT < XBERT) 

Enp 
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oiirpouttkE  xprtmo) 

COMMON  KlO<n4n) « vRO ( *40 ) *  KL ( 04r ) t  KW ( 84O ) * XCOUED ( 84° ) *XREST 

1  (R4O),w(P40)  tCUT8(P4n).  ZLarN0(S)  ♦?'  STpA  (*»)  ,LstkL  <*)  *LstKr  <5>  , 

?  7 1  c  l  R  (  b )  t  IHRVR(r)  ,FI  aG(5>  *kBL(J>  tKoRO)  ,VAPNAM(1  )  ,MR08NA<)  )  « 
3MaXVAP»maXCUT  tLPTMAX  fMAxRUu/fMMXAtNwRrw«;*NUMVAR»  TChR  (43O)  *VaL,LFIG* 
4TRTFp.Lu)-l  »LWH?,KW)  ,KW?*KHi  *Kh2 
noFNSioK  Wi  (36)  fW?OM  ,H1  »36)  tH?  06)  f  TWH^  06)  ,TWh2<36)  ,PO0D(36) 

noFMloN  Z  ( 1 ) 

PF  A  L  KWj  fKW^t^H^  *KH^ 

PB)M  )? 

In  FnqpAT(iPo) 

POTM  ?n 

?r  FnPFAT <))--»*  BUT!  O-UP  pEHToO  *50()H*)) 

Tl»  6*2-J«TSTEP 

I?*7*?-,*TSTEP 

PrUt  li'tZ(Tl)  ,7<T?) 

lie  format < 1  Ho »*IBW) *  *fi  ?.3»3v*Thw2*  *Fio,J) 

POTM  1 T  r  %L  ( 1 )  #7  (?)  *7  (3)  *  /  »4> 

11«  FnpMAT  M)-o**PCl-  *Fi?.7t3A.*Pr2=  *rl?.3»3x»*BWl»  #F  1?  .  3 * 3X  *Bw?s  # 
IF)?. 3) 

A  =  7  (R)-7<6) 

R  =  7 ( 7 ) -7 (8) 

C  =7 (41-7(10) 

0*7 ( 1 1 )_7 ( 1?) 

POTM  ),T,  A«BfC»n 

T2n  FnPMAT(?t-nf*SLOPF«-l  =  *F  1  2 . 7 1  3  X*SL0PEC7e  *F1  ? .  3 »  3X*SL0PE*1  a  *F12.3, 
13x,*Rl OpFw2=  *Fi?.l) 

PntM  17c 

1?c  FORMAT (lH-t*  STF APy-ST ATt  PFP100  *5?()M*)) 

T0TCAp»7 ( 13) *2 ( 14) *7 <1r) ♦/ f  16) 

POTMt  OrtZ  (13) t7(]4) 1 7 ( 1 5) *Z ( 1 6) t tOtPAH 
1 3p  FORMAT (iPn**FCl=  *F 1 ? . 7 t 3**t C?*  *F 1 2. 7 * 3X*EW 1 «  *F 1 2 . 3  * 3X*FW2»  *Fl? 

).1.3x*iotaL  capttai.=  #*f  12.3) 

PnTM  )  40  tZ  ( 17)  ,7  M  R) 

)40  FORMAT ()>0**FS*  *F1 7.3.3X*rMRFM=  *F1?.3> 

XOATTOMPTCAP/Z  <1  7) 

PdTMT  14T*XrATI0 

14)  FORMAT(it-0»*  BaSF/RTOOKPIi  E.  PATIO*  «F7.J) 

POTM  14? 

14?  FORMA  T  1 1  M- **  WAP-rT^F  PERIoL)  *bO(lu*)) 

POTM 

Oo  ifin  t  =  1  *  TSTEp 

T 1  *  T  ♦  1  8 

T?  =  T ♦ I  0*  T  STEP 

T3»T* 1»*?*ISTEP 

T4*T*1r*,*ISTEP 

TG=T*)B*4*TsTEp 

Wi ( I)»z ( T  3) 

Wp ( T 1 =4 ( T  4 ) 

HI  (  T  )  *2  (  T*T) 

Or  PP T M  l4c,I,Z(TllfT.7(T2),T,ZU3«,Tf7(T#)fTtZ<lS) 

0=  FORMAT (^H  **C*(*T7*)»*F)7.7*6X»*C?(*T2*)»*Fi7.3f6x*Wl(*l2*)=*Fi?.3 
1 , AX*W?(*T2*)**Fi?.7,ftX#Hl (*l?*)**Fi?.7) 

Oo  160  t  *  1 »  TcjEP 
T1*T*1h*c*ISTEP 
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I?*T*1M*f*ISTEP 
I qr I ♦ i K*  7*ISTEP 
I**I*1 m*p*ISTEP 
msj  ♦  i  «*9*istEp 
H?<u*/(n) 

1(t,p  PRIFT  ifte,  I*Z  (  It  )  ,1.7<l2)  .  T  *  Z  (  i  3 )  *T*Z  (I*)  *I*Z  (  I5) 

Iftc  EP°MAT  <i  )■  t*HZ  (*!?*)  s«p12.7*6**P01  i  *  I?* ) *#F1 2 . 3 1 5X*PC2^ *  I?* > «*F 1 2 . 
13tEx*s(*l2*)»*Fi?>T,7x*sP(*I2*>=*Fi2,P) 

IT*IStFp-1 
00  i  7n  T*1 *  1 1 
I1*I*lH*10MSTEe 
I?*I*1 7*1 l*ISTEp 
13*  I  ♦  1  *»♦!  ?#ISTEp 
14= I ♦ 1 S* 1 3*ISTEp 
I«?a  I  *  1 4**1  4*ISTEP 

17o  pdIK't  1 7C  f  I  *Z  ( 1 1  )  .1.7(12)  *1*7(13)  *T  *7  < 14)  *  I  *Z  < 15) 

1 7*  FOR V A  T ( 1 F  **PlPF<#T?*)a*Fl?.3.4X*T0Wl  { *  1 2* > **F 1 2 . 7 ♦ 4X*TCW? < * ! 2* ) s* 
lFi?.^*<*y«TCHl  (*T?*)  s#Fi2.  j.4X*TCH?  (*IP#l  »*F  1 2  *  3) 

DO  1  An  I  r 1  *  1 1 
I1*I*13*15*ISTEP 
I?sI*12*lrs*ISTER 
17=1*1 1 *1 7*ISTEp 
I4>I«1u«18*ISTEp 
If*I *9*Tq*ISTEP 
TWM  (  T)  =7  <  II  ) 

TWh? ( T ) ,7  < 121 

,flo  PRIfiT  ,oe,I,Z(I,l  •  I  .  7  ( 1 2  >  »T*7«l3>  »I.7(l5> 

1  A*  FpPMATliF  **TWH1  ( *1  ?* )  s*F  1  ? ,  3  *  4X*T<-’H2  ( *  1 2* )  **F  1  2 . 7  *  4X*T  WC 1  (*I2*)=* 
)Fl?,3«4x*TWC2 ( *  T  2  * ) =*F}2.3.4X*THC1  (*IP*1 n#F12.3) 

DO  1 00  T  =  1 *  II 
1 1 al ♦8*PP*IsTEp 
I?«I  W*?1MSTEP 
I-,*!  *o*??*ISTEp 

IRo  pnlKj  1QR *  I *7 ( 1 1 )  ,1 .7 (I2> *T *7  ( 17) 

1  Rc  F  ORPAT ( ) F  **THC?(#I?*) a*FlP.3.*X*THWl  ( *  1 2* ) **F 1 2 . 7 ♦ 4X*THW? ( *  1 2* ) ** 
1  F 1  2 . 3 ) 
r 

r  ppint  out  production  cupvf 

r 

no  oro  t  t  1 » I  STEP 
171 clwhT 
177  =  1  Wh? 

IF  (I71.FT.I)  I  7 1  =  I 
IP  U7?.  FT.  I)  I7?-I 
SMTWH1 t? . 

Do  2 f  1  ]*1  *171 

SMT WHl =C^TWH1 ♦TWMl  (T-J  +  l) 

201  TOKtINUF 
SMTWHPs^ . 

no  2 f  ?  !=  1  *172 

Smtwh?  =  c^TWh2^Twh? ( t  — J ♦ 1 ) 

COKjlNoF 

r 

XX 1  *  (S^T^Hl  ♦Ia  I  (T)  )  /  K  W 1 
X  X?  = (5MTKH2*fc2  (T)  ) /KW? 

XX3=H1 (T ) /KH1 
XX4  =  H? ( T )  /KH2 
PROP (T)-XXl*XX2+yXq*XX4 
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300  C0>NTINi)r 
PRINT  310 

F0»CMAt(iP  *//*  WARTIME  PRODUCTION  CURVE  */) 
XSt.PsO. 

nn  3?o  t=i*istep 

XCl.PsXS|lV»PROD  (  T  ) 

PRINT  Jjc *  I tPROn ( T ) 

31  R  FnRPAT<’P  *#PROn,,rTToN(#I<f*)»*H?.3) 

3?S  CONTlNUF 

PR T NT  370  * XSIJM 

330  fdRPATMP-**  TDTAI  WaRTImE  PRODUCTION*  **F10»3) 
PrTNt  1^ 

RctUPn 

END 
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PIIBPOIJTtAF  LPPPfY) 

cn^FnN  KLrt  <b4p  )  »kKO  ( p4o)  *KL  < o4n  i  ( F4o>  * XCoUEO (fl*o )  *xreST 

1  <fl4rt)  «w<P40)  ,CUTS<P40>  •  ZLSjtNO  (5 )  *  7|  STPA  <«i>  *LSTKL  U>  ,LSTKR  <5>  , 

?7L  ct  P  <b) ,  IHrvr(F> ,FI  AGi5> ,kBL  i  J) .KPpn) ,vArNAM<1 ) ,pBO0NA(\ ) , 
3maxvaR.maXCUT*LFTmaX,MaXROw*MaxA*NwR0W«:*NIJMVAR» ICnK <430> *VAL*LF|_G* 
4 1 PTrP  .  Lm(-  1  *LWH2,KW1  ,KW?*KM1  *Kh* 
nTwFNsInA  Y ( 1 ) 

PPTNT  )o 

10  Fop^At  (iM*?9HPACKrn  LP  SuiUTioN,  T  A  (  T  >  ) 

TW-KPO ( NUMVAP ) 
ho  ? 0  I  =  1  *  Tw 

IP ( APS ( V ( I ) ) .GE. 1 ,F-1 0) PRImT  ?0,T,Y(T) 

?n  F uoY AT ( 1 H  tlpX,lA,2X«fil0.4) 

•*0  (V'TINUE 

PRINT  4  r> 

40  FHPNAT (|P0) 

PCTURM 

Ent 


B-34 


SUPPOUTUF  Spud) 

PPTNTHiR 

inn  FORMAT Ul PROGRAM  morg  ABOnrtD  BECAUSE....*) 

Goto Mui .102*101.1 OA,lo5.ln6*)u7,ln8,iov»llO»111 )  .1 
ini  PR y M  *"1 
C  A I.  L  F  a  T  T 
in?  PRTNT  2«? 

Call  fmt 
in?  PRINT  2?? 

Call  fxtt 

ln4  PRTNT  2" 4 

Call  fatt 

in*  PRTNT 

Call  fatt 

in*  PRTNT  2*F 
CALL  FATT 
ln7  PPUT  2n7 
CALL  fatt 
inn  RR y A t  2«p 
CALL  fatt 
inR  PRINT  2*9 
Call  Fatt 
1 1  n  PRUT  Fu 
CALL  Fatt 
1  1  1  PRUT  *T  1 
CALL  FATT 
RFTIJPN 

2ni  FORMAT UnVARIABLF  cards  out  OF  ORDFR.-I OOK  near  MoGG  LABEL  1 05*) 
cn?  Format UnMAXCUTR  fxcfEoEU-.look.  nf«r  mogg  LABEL  117  or  124*) 

2n?  format  (*r matrIX  a  FvcFfDEu_-LOUK  Nr Ap  mogr  LAREL  P400*) 

2r4  FORMAT UrLPMAX  FxrEFDEO--LoOK  NEAP  Morr  LABEL  lno**) 

20R  FORMAT  (•nINITlAI  |P  I  NfE  A  S>  tBLF --LOoK  nFah  MOGG  LAhLL  1008*) 

2nA  FOpM At ( *pL 1st  Lfmrth  ExCEFoEQ--LOOk  KFAh  NOGG  Label  1 020*) 

2n7  FORMAT  UnXCOCEO  VTO|  ATfS  CmTS--LOOk  NF A K  MOGR  LA0FL  1060  OR  7025*) 

2nfl  FORMAT l*pN0  BRANCHING  MODE  FOUND--1OC*  NEAR  MOGG  LABEL  50*0*) 

209  format  (*nNO  FEArTPLF  POINt  FOiinD  —  I  OOK  NEAR  MOGR  LABEL  50ft4*) 
t)r\  FOCMAT(*rNO  6HANCHTNR  pOSStBLF  ON  wARTABLE  CHOSFN--LOOK  NpAR  MOGG 
1LAREL  3?t0*) 

211  Fo0MAt  (#pFLAC-  COMn| )tfD  IMhdOpf  kLy— LOOK  NFAq  MOrG  LABEL  5il0*) 

Fnp 


SijppniiT'Mi  SC  A 1 1 

Cn^Mn^  KLn(P4r) ,*KO(a4oi *KL (o4n) .km <R4o> i  XCnllED  <  B4o ) * xreSt 

1  lfl4n )  «m  (p40)  .CUTS  (fl4o)  .ZLSrNO  (5)  .7 1  STPAlft)  tLSTKL  <c)  tLSTKR  (5)  , 

?7I  «l.  R  (B\  ,  IBpV«(S>  .PI  AC,  (5)  ,*BL  l  j) .KQq( i)  , vArNaM  < 1 )  ,  (jrOBN A  <  1  )  • 
3MaXVah«mAXCUT  »LftmAx  ,MaXRuw.ma AA*N«RCwS*NUMVARf  ICmK  (430)  tVAl.LFLG. 
4  TSTrP  .cuf- 1  .L*"2,kwi  .KWi.Khi  »Kh2 
Cn»/^0N/uCpK1/B(43S)  .  X  ( A  30 )  .  Y  (  4  JO )  ,  v tF (  4  30 )  ,  A  (  37 no )  » E  ( 57 no  )  , 

1  I  A  (  37oo )  .  IE  (570")  .I..A  ( 1 102)  .LF (*00?)  *  I  PM  A*  (130?»2).KINBAS<i30?). 

?  JM4  30)  «  ISTYPE  (410)  tNAME  I?0)  t  NTpMp  ( ?  0 )  ,cm  IN  .  cON[}  ,fcRMflx  *  iPFEZf 

3  TNvFwp, TORJ, Ionun, |TrH, ItChA , ITC'T , TTKFPO, IVIN, T v Out  * JCOlP , K I NP , 

4  xstat>ROW,NCO|  ,MFLEM,NtrA,NLELF*'«M  FTa.N(jELEm.m(jETA.NUelEm. 

5  M'FTA,ei|MINF,K3 

CPypON/plOCK/  Z t'~*I  7r  *7tOIPv»7tCO<;t  .NciMAX«NtmAX»NEwAX*orO!  0mA,  qBA. 

)  CF  I  turr  «QRL  *Orl  .OA.vq.Or.OF.pF.oR.UH.Ql  ,Ql  ♦  nw.QN,  CIO.qR,  Qlt,07 
DT yFNSTpA  HUC13  ( iA  ,  ,nD  (  ift  )  .fU  (  3h)  .lloSP  (1ft)  .HRPIPF  (1ft  ) 

On  iro  TXX=?*NMpr>w<; 

SMA| l =1 ,F7fl 
PTPr-) .r7o 
|  ACTs|.M{KCOL*l)-i 
IPIPST=I  A (NPCW*, ) 

DO  ?"0  TXY=IF IRFT.I  AST 
IP ( I  A ( I y Y )  .NE . IX  X) SnTO’OO 

Tf(AHS(A(IXY)),|  T.SmaU  ) SmaLIcaBS ( a  (I VY) ) 
lP(ARs<A(IXY)),r,T.PTr;)PlO*AB<;iA(lxv)) 

foo  cpa  T I  nuf 

AVzSOWI  («MALL*RTC,1 
71  ?AV  =  AI  Cfi(AV)  /Al 
I ?  A  v  =  T  N  T (7L7AV) 

IP  (  71  PMV.LT.  P.  .  AA'P.I  ?AV-7LPAV.I,F. .  c)  I  1A  V  =  L2AV-1 
IF  (  71  PAW.GT  ,0..AMP.7L?aV-|  ?AV  #(,F.  .O  1  lA  V  =  |  ?AV*1 
np/  =  ?.**L?AV 
HP  3"n  TXY=IF IRct.laST 
If  (  ta  ( 1  vy )  .ne .  i xx>  sn-ro-,00 

A  ( TXY) *A  ( T  X Y ) /DTV 

joo  Caminiif 

H ( TXX I =P ( IXX ) /Orv 
ini'  COATlMtJr 

PFTIIPN 

FAT 
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SUPPOUTlAE  L  INPPn 

COUPON  KLO(04«) » yRO ( o4o ) tKL(P4r) ,KK<R40) i XCoUED < B40 ) .XREST 

1  (n*oi  ,W(p6C)  .CUTS  (R^O)  «ZLStNOi«j)  ,71  STPA(^)  .LSTKL  <«;>  ,LSTKR  (5)  , 

?ZI  clR  (S)  , TRrvr  <B)  ,P|  AG  (5)  ,*Bl.  (  J)  .KPrcs)  , vArNAM  ( 1  )  .PrOBNA  ( 1  )  , 
3MAXVAW,uaXCUT,L«:TMAX,HaXPow,MaAA,NmPOW?,NI|MVAR,  IChK  (430)  tVAL.LFLG, 
4  TFTfP  .t-wt-1  *LWH2,KWl,KW3,Km  »Kh/> 

COPPON/wOrM /B (410) , x (430) .Y (4 JO) ,ytE”P (430) .  A  < 37 n 0 ) t E  < 57 0 0 )  , 

1IA(37nOi,IE(570"),LA(1302).LF(<;0O?)  »  ITNAM  < 13o?»?>  ,  K INBAS  ( 1  30?)  ♦ 

?  JM4  3U)  ,  I  STY  PE  (4 -JO)  ,N  amE  (pO)  .NTFMp  <?n  )  ,  CMIN.CONO.fcRMAX.  IFFEZ* 

3  TA,uFHd,IOBJ,IPPuP,ttfH,ItCHa»I  tO'T,  TtKFRO,  I VIN,  t  v0UT»  JCnLPfKlNP, 

4  XBTat,KROW,NCDL.  ,NFLEM*NtTA,NLELF«,M  F T  a  ,  NGELEP ,  nGET  A ,  NUfLEm  , 

5  MiETa'.«IJMINF,ki 

CDP HON/PL  OCK/  Zrm  7F,7tOLPv, 7TCO<5T.NPMAx,NTRAXtNEPAX»QPO,QMA,QBA, 

1  CFI  .urn .QRLtQPL .QWT  »OA.Op tOr*QF,oF .np.uH.QI ,QL tOM.QN.QO.QR.QU.O? 
DT^FPSTDK  BUCP(7,e,l  ,  nn  <  36)  »FU  (3ft)  t  IlnSP  ( ’b*  ,  URP  T  PE  ( 3 t > 


ITCPTsO 

itcha=0 

'rT  iif  STaKTtnp  baStS 
Hp  Pino  J«1 »NCOl 
91 nn  KTNPAS(J)=0 

nn  Qnn  t=1«npow 

irrisjH(i) 

Ml.rPRnw 

riu  TOO  K  =  l,Nl|M\/AR 
PW=KL ( K ) +KROW 

IF  (  (  ICOL  ,GT.M(_,  .  APD.  (  rCOl  ,LT,UR)  1  GU  TO  700 
ML=KR (K) ♦  Nonu 
Jon  COMTINIJE 

IF ( TCOL.GT.ML ) Gn  rn  7Pn 
no  TO  Y«n 
7o  n  JM(T)=I 
9nn  rnKTlNUr 


loon  CALL  INVERT 
TTSTNV  -  0 
CALL  TTrROP ( q ) 

SIMPI FX  CYCLE 


1 5nn  CALL  FOopC 

CALL  ShtFTR(3.4i 
ITCH=n 

1  7nn  CALI  R t p AM 
CALL  pptGE 

If  (Fmim  .LE.-ZTrn^T)  no  Tn  3no0 
IF  (XPTaT  .EC.  01  )  nO  Tn  2oi)f) 

XPTAT  =  CRL 
Gn  TO  Pn  r  0 
^OOn  XPTATsUm 

Gn  TO  prOO 

Jnnn  TALI  UNPACK  (jCOl  Pi 
CALL  FIdAN(I) 
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->  n  n 


ERFAXay, 

Of)  Ppno  T *  I  *NR0v 

ERF  aX*E.RFaX*Y  (  I 1  *YTfMP  (  I ) 

Bonn  ContINijf 

DlFXXeCMTN-EBMAX 
DTFXXaPR* (OIFXX) 

IF  <L>lFxx.LE.ZTrnRT)  nO  in  Bsoo 
If  (K.'A.NF.  1 )  GO  Tn  RlSo 
PRIM  RenO»CFlN,FRMAX 

Xx'll'  FOPHAT  ( 1  Y  *lnX»f,MrMTNa  «  F  1  *  .  R  .  ijX  •  7WEP  M  A  A  ■  .Flft.fl) 
HI  no  IF  (FHM4X.LE.0.)  GO  To  8bn0 
IF  (ITCm.GT.O)  on  TO  1000 

Itch* jcol  p 

ItCHA=ItCHA*1 
CALL  Gnj F TR  (4  * 3 ) 

Gn  TO  )7T0 
®sFn  CONjlNvp 

CALL  CH117R 

IF (XGTAt.EO.CU) 00  TO  6X00 
I  VCUT*<Jw  ( IH0*P) 

IVIN  *  jCf)Lp 
C A |  I  l/PPFTA  _ 

KTNRAS(.iCOLP)  *  TPOWP 
K  f  N  R AS ( T  VOUT )  a  F 
vJM  (  T  Pown  1  =  I VI m 

ITCNT  =  TTCMT  ♦  1 
I T *  T N v  -  ITSINV  ♦  , 

CA|.l  IIFROP(l) 

IF  (NFlrF.GT.a5F0)  O0  TO  |o00 
CALL  wkft* 

If  (TTS>tkV  ,GE.  tmVfpO)  GO  TO  loon 
IF  (  TTCX'T  .GE.  TTPFRO)  GO  tO  *000 
Gn  TO  )FCO 

born  CA|.L  TTfPOP(I) 

SFT  pAkMS 

Op  7C00  T*1«NR0v 
JHX= Jh l T ) 

IF  (JHX.LF.NfiOW)  00  TO  6HnO 
W ( JHX-mROW) =X  (  T ) 
bsnp  COK  T  TNI  IP 

7nnn  Conttnuf 


V  A I  *-X  ( TCRJ) 

L  rL  G= 1 

Tf  (XSTat .Eq.qBI )  LFLO=0 
PRINT  VFCO*ITCHa 

FORFATMR*.10RX,1rHSTArILItY  COUNT  *  ,Tb> 
7 1  F  a  COFtINuF 
RftuPm 
Emc 
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Siippoijtt*E  FCRMr 

r 

ComPOn/wCp*)  /  •  X  (430)  . Y  (4  JO)  tvTFMP(4lO)fA(l7nO)  »E  (57r>0>  ♦ 

l!A(370iM  •  IE <570*)  «LMn02)  .LE<20O?>  ♦  TrNAM  < 1 102 •  ?>  . K INBaS  ( l  30? )  t 
?  Jh  (4  3r>)  f  TsjyPE  (4?0)  fNAME  (?0)  .ntFMP(?A)  tCMlN  tCOND  ftRMAx  ♦  IFFE7  ♦ 

3  t^VF  Ho, TOR J  t IPOWP, XTrHt ItCHa . x TO’T , T TKF RO *  I  V  IN  9  T VOUT  t JCOLP « K I NP ♦ 

4  XSTaT  >P0WfNcm„  f  NrLEM  t^LTA«f'LELFwt  M  F  T  a  «  NOEL  EM  9  KjGE  T  A  ♦  NllFLEM  9 

5  M!F1  A#«UMlNFf  K3 

CO^PON/o LOCK/  ZtO|  7r*  Zt0LP\/*7yC0<;t*^PmAa*NtMAX  tNEHAX*QRO»nMA  ,Q0Af 
1  CF  I  *Urr  t  (JBL  tGPl.  fO»M  ,  OA  «  Up  *  Or  t  OF  «  "F  »  OP  9  UH  1 0  I  9  QL  »OM  *  ON  *  UO  ,  QR  •  OU  *  07 
OT^FNMOK  RUC^»  (tA)  fOD  (36)  #fU  (3*)  tl|oSP  t  3b)  ,URPIPF  (3b) 

f 

r 

XSTATeWF 
Ifff?  =  1 

Oo  ] r n  T  *  1 tNRow 
Y(T)  *  *. 

10A  CP*TlM»r 

SU*  =  0. 
r 

no  1  coo  t  *  l » Nonw 
loci  =  jmI) 

IF  ficuj  ,  Gy  .  NpOw)  00  70  *00 
IF  (TSTVFE  HCOL)  )  PoOtlOOu.bOo 

r 

Pnn  IF  <  Ahc ( X ( I ) )  .IF.  7T0LZt>  Go  TO  lOf* 


If  ( X  ( T )  . LT . 

0.)  V  (T) 

=  ♦A. 

I F ( X ( T )  ,GT. 

0.1  Y  (  T ) 

*  *1. 

$I|Y  =  ♦ 

00  TO  bin 

ARc  (  y  (  t  )  ) 

c 

Fnn  iFfXU)  .OT. 

-ZTni  7r ) 

oO  To  inoo 

Y  (  T)  *  ♦  }  • 

5!  J*  =  sm^  "  X  (I  ) 

*1*  IFFF7  =  r 
XSTAT  =  Cl 
inn*  COM T NUr 

c 

Sup T  F’F  -  SUM 

IF  (  I  F  F  F  7  .LF.  a)  00  TO  90nO 
Y(TOPJ)  =  !• 

C 

VpOn  PFTUPN 
EM 
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SIIOROUTtkE  BTRAv 


»K  (430)  .VUJOJ  ,VTF“P|*10>  ,A(37f)0>  ,E<57rt<))  , 

1  Un7fHM,UmOM.LMUC;?>  .LEUOnPi  t  lr*M"  [l  302,?  I  ,KlNBAStliO?»  , 

2  JMAirn  ,  iSTVpE  i*7n>  iN**E  (pfll  iNTFmp<7M  itMjN  ,CON[)  .tpMAX  *  IFFE7. 

3  TNUPHO, Inflj, iQnwp, jToh. lTCHA,lTCvTtrTKFBf5tIVlN»i YOUTtJCOCP*KlNP, 

4  *PTAT,*RQW,fcCnU*JF|.!Mtf’tTA  ,,*lL£LF''»Kl  ET*  *NH£L€MtMj£TAtNOf LE*, 

5  Mif  Ta,«UMISF  ,k1 

COWON/pl  OCK/  Ztdi  7r # ZtOLHv t 7TCOST. NRm# X#mtmaX* NEVA X«QROfOMA,QB A » 

1  CFJ,ur('*W^-’OD,-*0MT*oA»gB*r3C*oE*n^*oR*uH*Ql»QL»oV»QN»QO,(3R,QU«oZ 
OT  VPN'S  I  OK  BUCG  <->m  ,nD  (-96)  irl>  (36)  *UoSP  (36)  .UBPIPE  (->6) 


TP  ( Nfc'  T  a  .LE.  0>  r.o  jO  900n 
nn  inno  T  *  i »npta 

lK*MtTA"I*l 
LL  =  Lt  f IK) 

KK  =  I  t  (  T K* 1 )  -  1 
IPTV  =  TF (LL) 

OP  =  P  (|  L  ) 

PY  r  Y(TPIV) 

OSL'V  =  o. 

TP  (KK  .LE.  LL)  On  to  *00 
LL  =  LL  4  1 
nn  son  j  s  LL*Kk 
in  =  I  b  fj ) 

DP  *  E  ( .1) 

DPROO  =  PE  *  Y ( T P ) 
nsi  V  *  OPUM  *  OPRnn 

Son  rnM  T Nl)r 
C 

boo  Y(TPTv)  =  (oy  -  nsi)M)  /  op 
loon  rnNTTNUr 
C 

vooo  return 
Eno 
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SI )°POUT  T  N  E  PPICF 

COMMON  KLO(fl4^)  ,*R0<n40)  .KL<o4<n  .  KM  (  840)  .XCOUED(840)  .XREST 

1 (840) «w (P4O) .CUTS (fl4n) .ZLIjtNO  <S) ,7|  STPA (5) » LSTKL ( c ) .LSTKR (5) , 
27Lcl.P  (Si  , IBrvr<*)  ',F|  AG  (5)  tKbL  (J) .KPr(3)  .vArNAM (1 )  .HrOBNA  <1  )  » 
3M«XVAH,M« XCUT .LFTMAX.M«XRUu»MaXA.NmROWS*NUMVAR. IChk (430) .VAL.LFLG, 
4TFTFP«1-W)-1  .L^^S.KWI  .KWp.Khi  *K(i^ 

COMMOM/wORKl/B (4?*)  .X  U30)  .Y  (430) .VTEMP (430) . A ( 37  no ) ♦ E ( 57 nO > * 

1 1  A  (  37  0  0)  ,IE(570«)  .  l.  A  ( 1302)  , LE ( 200?)  *  I  ON  am  ( 1  3o2 .  ?)  ,  KI  NBAS  ( )  302)  . 

2  Jh  ( 4-30 )  .  ISTYPE  (470)  .NaME(90)  .*TEMP(?n)  .  CM  IN , COND. FRMAX » IFFE? » 

3  INVFnn.I0BJ.IpnwP,TTCH,ITCH4,lTC‘'T.TTKFRQ.IVlN.Tv0UT*JC0LP,KINP, 

4  XST4T ,NROW,NCOL.MfLEm,NEtA.NLELEm.M  F T a , NGELEM , mGET A  * NUfLEM , 

5  M!ET«  '.CIJMINF.K7 

‘ COMMON/pL OCK/  ZtO|  7F,7T0LHo*ZTU0sT.NpMAA. Nt^AX*NEmAX*QRO*qMA,qBA, 

1  CFl.tJFr*ORL*OPL.OMi.OA.Up*Oc*QF.oF.oc*(JH»CI»QL»OM*QN.QO,QR.QU,OZ 
DIMENSION  BUC° (04) ,nn<36> .FU<36),l)oSP(3b) ,UBPIPE(lfe) 

jcclp  *  r 

OMIN  =  1.E10 

DO  ]  COO  ‘J  *  1  *NrOl 

I f ( J  .if.  nrcw  ,4Nin.  istymf(J)  ,nf.  d  go  to  1000 
IF  (KINPAS(J)  ,MF.  r )  0  0  Tp,  1000 
IF  (TTCm.EQ.J)  Go  to  1000 

DSLM  =  S. 

I.L  =  LA|j) 

KK  ■  L  A (J  *  1 )  -  i 

Do  Epp  j  a  LL»Kk 
IP  =  I  A  I T ) 

OF  s  A ( T ) 

DpOpD  =  OF  *  YUp) 

Dsi;M  =  n«'JM  ♦  Dppon 

F«n  CONTINIIF 

IF  (OSUM  ,GE.  CMJM)  GO  TO  1OOO 
CM  T  N1  s  OCIJM 

JOCLP  =  J 
loon  CONTI  NlUc 
PFTUPM 
EmC 
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SIIBPOUmE  ShIFTP  (  TflLO,  INtw) 

CnNMnN/u,CRKl/H  (41?)  ,X  (430)  .  Y  (4  JO)  ,vtEmP<430)  *4(37(10)  *E(57(iO)  , 
114(3700)  *  IE  (5  70S)  ,t_A  (1302)  .LEUOO?)  *  TrNAM  (  \  3o2  *  ?)  «MN8AS(  l  30?)  * 

?  JR  (*30)  *  ISTYPE  (^30)  *NaME(?0)  *nTFmp(2«)  *  CM  IN ,  cONO,  ERMaX  *  IFFEZ* 

3  TNVFKo , TORj* IPrwP, TyPH* 1 tCha « I tO'T *  T jKF RO *  I v I N*  T vOut * JCOlP *KI NP, 

4  XSTAT,KR0W,NC0L ,NrLFM*NtTA,NLELFM,M  FI  a  * NGELEM  *NGETA  *NUfLEM  * 

5  MiETa,«UMINF*K3 

rn^MPM/PLOCK/  ZTni  7P*ZTOLHw,7Tl,0(?T.NRMAAtMTMAX*NEl>‘AX*QRO*OMA,OBA. 

)  GFI  .Urr  *ORL*Opl  *0«'T  *  OA  *  Ub  *Or  *  OF  *  nF,or-*(JH*OI  ,OL*OM,aN,O0,QR,QU,OZ 
DT^FNSTnF  fc)U0G(  .,*)  , n[)(  -,6*  *FU  ( ^6)  ,llpSP  (?b)  , IJ8PIPE  <,6> 

DTPFF'SInK  HAPRAv(14r0) 

EOi'I  Vai.pNCE  (BARPaY  (  j  )  »b  ( i )  ) 

IFC  *  (tCLD  -  1)  *  MRM/vX 
I FN  *  (TA.EW-  1)  *  NPMAX 

Dn  iroo  I  =  l.NPOw 

PflRRAYlTFN  ♦  I)  =  RaRPa Y ( JrO  ♦  I) 
loon  CpmInuf 
RFTUPm- 
Fnt 
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SHPPOUTT^  UNPATK(TV) 

rn>PON/urPKl  /B  (4V  )  tx  (430)  .t  (430)  tVTFMP  (4?o )  t  A  ( 37  no )  ♦  E  ( 57  nO )  ♦ 

1 TA  (37 nu)  *IE  (b70«)  tlA  (1102)  *LE  UOO?)  tTrKAM(13o2*2)  fMNBAS(i30?)  t 
?  JF  (430)  «  TSTYPE  fOD  *NAHE  (?0)  fNjFMO(?n)  tCMlN  tCONQ  *  tpMAX  *  IFFE?  * 

3  TNVFKr',TORJ*IPnwp,jTrHt  ItCHa  »  ITC^'T  #TTHhRO#IVlN»TVOUT*JCOLPfKlNPf 

4  X ST A T « KPOW 9 NCOI  . MfLE^ * (''tTA « ml£ LFW • M  FI  a » NRFLE M #  MjET A»NUfLEM, 
g;  M  lE  TA  ,  cUM  IKF 

’  Cn^MnN/Pt.  OCK/  ZTOI  7r#ZTOLPv*ZTCOST*NPMAXtNTMAX#NEMAX#ORO*OMA,OBA* 

)  rF  I  •uiFF  tgRL#QPLtOMT  *oA*UQ  *  OF*  oE  *oE  »  *  <jH  ♦  0 1  *  Ql- ♦  ow  *  UN  ♦  Q°  *  QR  *  Qu  *  0? 

HTMFMSiON  BUCG  Mm  ,np  (36)  tFO  ( JO)  #tlf>SP  f  3b)  «UBPIPE  (3&> 

r 

nr  ion  t  ■  1 tNRow 
Y(T)  = 

loo  CnNTlM)F 

r 

LL  *  LA  (TV) 

<K  =  t  A ( T  V ♦  1  )  -  1 
TV  ?o0  T  »  LL  *  Kk 
TP  *  IA  (  T) 

Y ( TP)  =  A  (  I  ) 

?0O  CP^TlNUF 

r 

PFTUPN 

EmT 
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c 


subroutine  FTRAn  ( TOrtP) 


''0^M0N/wrPK]/B(4-5;)  ,y(430).Y(*jp>  ,vTFMP(4T0)  *  A  (37P0)  »F  (57fl0)  , 
lI«f37no),IE(b70^),|.4(no2).LF(^on?),  I  rM  am  <  no2»2>  *KINBaS  ( i  30?)  * 

?  JF  <4  3<M  «  ISTYPE  U^O)  »NaME<?0)  ,ntF«d  (?F)  •  OIN ,  CONf) .  tRMAX  i  IFFEZ  * 

3  TNVFHr  *TORo  .  IDowp,  TTfh»  I tCHa •  ITC*'T  «  TTKKBO*  I V  In  »  |  VOUT*JCOLP»KINP. 

4  XFTAT.FROW.l'tCOI  ,NJFLEM*l'<tTA«Nt-ELFM,M  F  T  A  ,  NRELE”  ,  MjET  A  ,  NUfLEM  , 
f  M!f  T«.CUMINF,KT 

Cn»/MnM/BLOCK/  ZtC|  7r,7T0LPw*7T<'0ST.NcMAA.NTMAX*NEMAX*QR0i0MA,QBA, 

n  r  luckit  *  um!  1,,QPL  •0MT*°A*u«»Qr*0E,<'F,nF,(JM,0I,0L,0M,QN,00,0RlQU,07 

OT^FFSTnr  HUL*?Cj*j  ,r>nd6>  ♦Fl>nh)  ,MoSP  (3b)  ,UBPIPE  (if,) 


GO  TO  M  C  0  *  1  1  0  ) fT^AP 

inn  MFP  -  1 

NLP  =  ntta 

00  TO  ?nn 

1  1  n  MPP  r  l\i|  p  TA  +  ] 

Nt.p  r  NT  T  A 

?nn  IF  (NFt  .0,J.  m_d  ft n  TO  90n0 
no  iron  T*  =  ISFrfM|  r 
LL  =  l t  f  IK) 

KK  r  I  t  (  I  K ♦ 1  )  -  1 

IDT  V  r  T  T  (  LL ) 

OY  *  Y  (  TFT  V) 

OY  r  r> Y /F  (LL) 

Y  MPT  V)  =  UY 

TF  (Kk  #IE.  LL)  Oo  to  iQOO 
LL  s  U  ♦  1 
no  Cpn  i  =  LL  * Kk 
Id  =  leu) 

YMp)  r  V  (  I  p )  -  F<j)  *  OY 

0 0 K  T T  N U r 
loon  CokjImuf 
*ppp  Cr^  T TNUr 
PPTUPN 
Emo 
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SIJPPOOTTKE  CHJZP 


C 

CPVMOn/wCRKi/B  (4^)  ,XU3o>  .Y  (430  >  ,vTFMPU30>  ,A  (37o0>  ♦£  (57ft0>  • 

1  I  A (3700) «IE (S70") tLA (1302) «LE (200?)  •  I OK  am  ( 1  3o?*  ?>  ,MNBaS  ()  30?)  * 

?  JM4  30)  ♦IsTYPE(4lo)  t N  AME ( p0 )  *NTFMn(?M  *CMlNf  CONO.ERMAx  *  IFFE7  t 

3  IK-Vfho,  IORJ  flPOWP,  iTrH*  iTCHAf  UC^Tf  TTHFPQf  IVlNf  IVOUT^  JC0LP*KINP# 

4  xSTaT.KROW, HcOL, NpLEM*^tTA*NLFLFMf  m  pT  a  ♦ NOELF M  , K(j£Ta  *NUeLEm  f 

5  nuEtA  .cijMTFF  *kp 

COVMOn/pLOCK/  ZTOi  7F*7T0LHwtZTC0^T.NRMAA,NTMAX*fslEMAX*QR0*0MAfQBAf 
1  GF  T  t(JFr  f  QRL  fQPL  »O^T  f  OA  tUp  f  Gv-tQE,nF  ,  OF»UH»0l  »OLtQM,  QNf  UOf  QR,QUt07 
OI^FNsIon  BUCOfp*)  fnD(p6)  ♦r0(3fe)  tU«Sp  (*56)  * UBp I  pE  ( 3b ) 
r 

r  SFLFCT  PIVOT  pnw/VAHlA«LE  TO  LFAVF  IMF  RASIS 

r 

7TCLfM=7.E-S 
7tGLXxsi ,E-lr 
XMIM«1  #F10 
XMTNpsl  FlO 
X  M  t  N  3  s  1  *  F  1  0 

IpTWPl er 
iprwpps; 
lPTWP3=r 
r 

no  ?rno  1*1 « n row 

If  <Isi yPE(I) #En#«)  on  to  2000 

IF  (  AHS>  (  Y  ( I  )  )  #LT.7Tni  Co)  n  0  ^  O  ?  0  n  0 
I  COL  =  JH ( T ) 

IF  (  (TCnt  .LE.NRnu/)  #  aNO.  (IStYPf(I)  .1  T#r)  )  00  TO  irtOO 

XPATTO=X  (  I  )  /Y  (  1) 

IF(xRAlTr.LT.-ZTn|  7 F ) On T 02 n 0 0 
I F ( Y ( T ) .LT#0, ) GnTnpoOO 
IF  (XpATlo*OT#XMTMn  00  To  2000 
XMlNl aXoATIO 
IPOWP^t 
on  TO  Pnoo 
r 

lOfto  IF  (  AHS  (  X  (  I )  )  #Lt.  7T0L  Zf)  n  0  TO  ISaO 
XPA Y IOsX ( I ) /Y ( I ) 

IF  (XpAtIo*LT#0.)  o’o  to  2*00 
if  ( XPAtTO.OT *XMTMP)  00  To  2 000 
XMU  i?*APATlO 

lprwP?=T 

GO  TO  ?-rf]r) 

r 

}bnr  XXXsAHS ( Y ( I ) ) 

XPAT IOs7TOLXX/XxX 
If  (XPATTo*riT*X^TMO)  0  0  To  ?oon 
Xmtn3sxdA  TIO 
[p0wP3=t 
r 

<ionr  onMTNuF 

r 

r  TF ST  FOR  CUTOOtNO  VfCTOp 

r 

IprwPsiprwPi 
XPATlOavN'  IN] 

If  (XPAtiO,LE.Xmimp>  nO  To  3ou0 
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IPCWP* iprwP2 
xo/iTIn=y*  IN? 
r 

Jfifin  IF  (XHAtTO.LF.Xmtm?)  r. 0  Tr»  4fiO0 
IorwPslorWP3 
XPaTTO*yP IN3 
r 

Anon  IF  (IPOwP.LE.O)  x«rAT»OU 
IsTPOwp 

IF  (K3.WF.I)  RFriipM 

PP TNT  PrOO* IPOWP, v (T)»Y(I). JH(1) 

900"  FOPPAT  (  pK  IRCWPr  '♦  T A *2*  »6HX  ( I)  *  *Fi  (, . P *2* * 6MY  <  I  >  *  «Fl6.8*?X 
] • 7P JH ( I ) *  *I«) 

PFTUPN 

EnP 


B— 1|6 


in 


StlPPOUTUE  uPBEta 

r 

ro^ON/uCRKi/BUiS)  ,x  (430)  .7(430)  ,vTEmP(43o)  .A  <37oo>  *F<570o>  . 
lift  (^700>  ,  IE  (570")  .LA  (1  ?02)  .LE(<!00?)  ♦ TCNam ( 1 3o? .?)  .KINBAS  <1  30;>)  • 

?  JR  (430)  ,  ISTVpE  ( 4-»0>  .Name  (30)  ,Ntfmp<?")  .CMIN.COnD.ErMAx.IFFE?, 

3  TNVFwn, lOBJ.IPnwp, TTrH.IrLHA. ITCuT, TTHFRO.IVIM.TVOUT. JCoLP.KINP, 
XSTaT  .aROW.Ncol  ,NfLEM.>'‘Eta.M-ELF*,*M  F 1  a  .NreLEm .NOETa *NUpLEM. 

MJE1V.CUMINF.K3 

Cn^MON/PLOCK/  Zt0!  7F,ZtOLMw*7tLO<;T.NRmAa.NTMAx»NEmax«ORO.OMA,QBA, 

1  CFI .QfC  *0BL  *QPL .0MT .QA.Un.Or.OF.nF .OP.OH.QI .QL.OM.QN.QO.QR.QU.OZ 
n  IMF  NS  TDK  BUCU  (3(C,»  .no  (Tft)  *FU  (3h)  .IlnSP  nt>)  .URPIPE  <3fj) 

Of  e  X(TBOWP) 

OP  c  nt/Y(IRCWP) 

X(TRoWk)  *  op 

on  icon  t  *  l.NRnu 

IF  (I  ,rC.  IROWP)  r,n  To  1 0oO 

nr  *  x  (  t  ) 

X  (T)  =  nF  -  Y ( I ) *nD 
Iopp  CONTTniif 
RFTURn 
Enp 


B-47 


\S 


c 


Si IPPOIJT T A E  WRETa 


CovmOn/wCRKI/B (43*) ,x(43o).Y(4JO) ,VTF“P (430) *A(37nO)*E(57no), 

llA(^7n»)  ,IE(570n)',LA(l-,02)  .LE(*00?)  •  I  I'M  am  1 1  3o2 «? )  .MN0aS(i3O?)  « 

?  .JM 430) , ISTYPE (430) tNflME (?0> .ntEMp (?«) «CMIN ,COND.ErMAX» IFFEz* 

3  TNVfko, I  OBJ, IPPWP, I TfH, IrCHA* I  TOT, TTHFPO, T VIN, t VOUT, JCOlP,KlNP, 
xSTAT.NROW.NcnL.NFLEMtKtTA^i-ElFM.M  FT  a ,  NOFIEM ,MGET a ,NUfIEm , 
MIETM,«DMINF,k, 

CAA'MON/nl.  OCK/  ZTO|  7F , ZtOLPw , 7TL0ST . NPM a x , NT* AX , NEW AX » QRO » OMA , QB A , 

1  CFI  »WFC»UBL»0PL*(3MT»0AtUpt(5c*QE*"F.OPtUH*0I « Ql «0M « QN« QO , QR , «U»OZ 
PTA'FNST ON  BUCG  (  36)  ,nD  (36)  ,rU  (3b)  ,lleSP  <3fe>  ,t|RPIPE  (3t>) 
r 

NFI.FM  =  AFLEB  ♦  1 

I F  ( A'FI  tw)  =  I ROwP 
E(NFLFmi  s  Y(IRowd) 

r 

Do  iron  T  =  1  *NROW 
IF  (I  .cC.  IROWP)  00  To  lanO 
IF  (  aop  ( Y  ( I )  )  .1  f.  7ToLZt  1  GO  TO  if) rn 
NFI.Fm  =  NELEF  ♦  1 
if(A'Ei.em)  =  i 
F(NFLFM)  •  Y(I) 
loon  CONTInuf 

r 

NFT  4  =  a  FTA  ♦  1 

Lf  (N'Fta  +  i  )  =  NEl  FM  *  1 

PFTUPN 

Emt 
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SU°POUTnE  ITEROP  ( TPAR) 

COMMOn/wCRKI/B (43*) ,X(430).Y(430> ,vTFmp (430) *A <37o0> .E (57n0) , 

1  IA  (3  7nt»)  .  IE  <570")  ,LA  (1302)  .LE  (*00?)  ,  IONam  ( 13o2  *2  )  . K INBAS < l 302 >  , 

2  JH  (430)  ,  ISTYPE  (4->0)  , N  AME ( ?0 )  ,ntFmp(2o)  ,CMIN, CONO.ErMAX*  IFFE?, 

3  TNVFKn,  IORJ,lPOWP,TTrH,lTCHA»ITC''T,TTKFRO,IVlN,TV0UT,JCOLP,KlNPf 

4  XST4T,NR0W,Nco|  ,MrLEM*iXtTA*NLELFM,M  FI a,NOELEM,MjETA*NUfLEm, 

5  MJETA.CUMINF.K, 

COMM0N/n|. OCK/  ZTO|  7F,Zt0LH«»ZTC0ST,NPmax ,NTMAX»NEmAX*QRO.QMA ,QBA, 

1  cFI  *wFC  tQRL*Opl.  *oMY,oA*(jQ»oCtQFtoF,nP*uHtQlfQLtoM*QN*QOfQRtOU»oZ 
PTMFNSIoA  BUCG  <  TA)  ,00  nft)  ,rl)  <3t»>  *IJrSP  r  Rfo)  ,URPIPF  <3b> 

IF  (IPar  .EO.O)  00  TO  1000 
OR J  =-X(IOBJ) 

IF  (IFFF7  .EC.  *)  ODJ  a  SUmINF 
IF  (K3.Nr,l  RETURN 

WRITE (P.PoOO)  lTTNT.XSTAT.nBJ, IVTN.IVnUT.CMIN, 
lNFTA,Nt|  FM.TIMEP 

ROOO  FOpM  A  T ( 1 P  *  15 *4XA4 ,?X ,F 1  ft , A *4x *  16 ,4 X, Tft *4X ,F16, 8 ,4  A* 16, 18, 

1FR.2  ) 

Gn  TO  T?on 

Inoo  IF (k3. Nr, l ) RETURN 
WQITF (b.Ploo) 

hino  format (//rhoitcoiint,?XaHSTaTUs,4XruOr  i  value, rx,5mvecin»5X6Hvecout 

1 , 1 1 x,?Hnj, 1 2x,4mnftA ,3x »5mnELfm,4x.4htIME  ) 

¥000  PFTtIPN 
ENP 
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1  *)  o 


SDRROUT  tKE  INVENT 

Cnk'HON/wCPKl/B  <4?0)  ,XU30)  .Y  (4  JO)  ,VTFMP(410)  » A { 37no )  *E<57nO)  « 

1  Ta  (77005  ,  IE  <570")  ,La  (no?)  .Le  ( 0 0 P >  * Ir^A*  < 1 30?»2>  . K INbaS  <  1  30? )  * 

2  jw<430) ,ISTYPE(470) *N&ME(90) .NTEMo<?n) . CM  I N , CONO , ERMAX 1 1 FFE 7 . 

3  T  F VFHn, IORJ,IPnwp. TTrH, ItCHA* ITC^T,TTKFRQ,IVIN, T VOUT. JCOLPfKlNP, 

4  XSTAT.KRnWfNCnt.  ,NrLEM,NtTA,MtELFM,M  FTa,NGELEm*MjETA.NUFLEM, 

5  MIETA,*'JMINF*K3 

Cn^pON/oL  nCK/  2rnl  7F  *7t°LPv * 7t^0sT •^Ru4 A *NfMAX  *NEmAX *QrO*QMA ,QBA * 

1  CFI  .Urc«t)RL»OPL  , Omj  ,oA,f}H*Or*OE,nF,n(?,UH,QI  ,OL*OM,QN,Q0,QR,OU,O7 

DT^F^STPK  BUcV>  ( -af, )  « no  ( -,6 >  •  fU  < 3ft)  ♦HoSP(-,b)  ,Uf)PIPE  <•,«,) 

TNTFfiFH  MRFG*HPrG. VRrG 

PT^FNSTnf  MREG (43*) ,hRfG(4iO) ,vRFGf4?n) 

EOi,  IVAL  rrCE  (Mrpp,ytEmP)  *  IhkEG*X) 

Sft  papapetfpc 

NFTA  X  n 
NLFT A  *  r 
NGFTA  e  r 
NllFTA  =  n 
NF|  FM  =  0 

N|  FI  FM  =  0 

NGFLFM  -  n 
Niiflfm  _  n 
NaPOVf  -  ft 
LF  <1  )  *  1 
LPl  c  ] 

KOI  =  0 

LP4  s  KjOTW  ♦  ] 

KP4  e  MDrW 

Pin  SLACKS  Awn  APTIFICtALS  IN  part  4  AND  REST  IN  PART  ) 

C 

no  i ro  t  =  i * NRnw 

If  (JH(T)  .r,T.  NPHW)  Co  TU  sn 

IP4  *  L  04  -  1 

MPCp(LKA)  =  JH(T) 

VPFG(L*4)  =  JH(T) 

Gn  TO  ^ 

Fn  KP 1  =  K  P 1  ♦  1 

VOPF  (KKj  )  =  JH  (  T ) 

Qn  HoPO(T)  -  ~i 

JH( T )  ■  " 

1 n n  CONTTNUC 
C 

KP*5  e  L  04  -1 
L  P‘3  =  LP4 
C 

On  ?cn  T  e  LP4*kP4 
Ip  =  m Krr-  ( I ) 

HpF  G ( T  p ) a  0 

JH(TR)  =  IR 
KTARAS(TF)  =  IR 
ConTU'UF 
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->  -> 


r  Pul  I  n,,T  yECTnHS  bELOu  P,,MK  AND  GET  POw  CO(j*TS 

r 

NRKON7  i  KP4  -  I  04  ♦  1 
TP  ( KR |  ,E0.  J  fin  TO  1 190 

J  3  LW  ) 

?1«  iv  *  vhpC<J> 

LI.  =  I  A  (  T  v ) 

KK  r  |  A  f  T  v+ 1  )  -1 

IoOT  =  r 
no  ??n  T  =  LLtKK 
NRN0N7  .  MRNCN2  ♦  1 

to  =  TA  ( T ) 

IF  (HRto(IK)  ,Gp.  „l  GO  TO  2?p 
IPfK'T  s  TPCNT  ♦  1 
HoFG(Tk)  s  HpEG(Tn)  -  l 
lop  -  )Q 
??«  OOKTTNUr 

iFflPOWT  -  1)  2Tn,?eo*TOO 
?3  0  OOKTlNur 

IF (KG.fc n, 1 ) PR1NT  flpoo 
HO  a  a  FORMAT  (if  HOMATRT  y  SINGULAR  ) 

KTKPAS(TV)  s  « 

VOFO-(J)  s  VREG(KRi) 

Kol  s  Kol  -  1 

IF  (J  ,0T.  KR 1 )  00  to  GlO 
GO  TO 
O 

?Gn  VPFfi(.J)  -  VREG(KOi) 

KO  •,  3  KPj  -  j 

LD-J  3  LO?  -  1 

VOFG  (I  HD  s  IV 
mofG  (I  h-j)  s  IRP 
HRFG(TKP)  =  0 
jH(TPo)  3  IV 
KTKRAS(TV)  3  IRP 
If  (J  •  ot  .  KR  j )  no  to  -,jO 
Go  To  21 r 

GAO  IF  (J  .OF.  K  P 1 )  00  TO  GlO 

J  s  J.i 
Go  To  21 r 

PUI  I.  OUT  oEMatNTno  VErTOPS  AROVF  AND  BELOW  THE 
BUmp  amo  fST  ArL  T  bn  MFrlT  CUUNTS  OF  COLUMNS 

G 1  A  NVRFM  r  0 

IF  (KP1  .FO.  p)  GO  TO  ll9f) 

J  r  LP , 

R?o  IV  s  VkpO(J) 

LL  3  L  a ( IV) 

KK  3  l.fiTVtj  )  -  , 

IoCMt  -  p 
no  Pm  t  3  LL»Kk 

io  3  T  A (  I ) 

I F  ( H  pF  G  (  I  R )  .NE.  _?)  GO  tU  4A0 

C  PIVOT  ARC VE  RUMP  (PART  OF  L) 

r 

NAPOVF  3  NAROVE  ♦  1 
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oio  n  no  o 


I P  C  WP  =  IR 
C/'LL  MNoiCK(lV) 

CALI  WKr  T  A 
NLETA  =  K  FT  A 
JH(IP)  -  IV 
KIKRAS(TV)  =  IR 
VpFG(J)  3  V RF G ( Kp i i 
KP1  s  KOI  -  1 

NvRFH  =  NVRFF  ♦  i 
HPFG(TH)  a  IV 
GO  TO  P4r 
r 

4op  ir  (Hwfg(IR)  .Gf,  o)  Go  TU  Hop 
I P 0 A1  T  3  I PCNT  ♦  1 

Ipp  -  Id 
Hop  fPMINUF 
C 

IF  ( IkCwT  -  1)  PlP,O00,100P 

HIP  ros  T  I  NIJF 

IF  (K3.Fn, 1  )  Pf,  INf  fiflPO 
KIKPAS(tv)  =  0 
VPFG(J)  3  VPEG (  KRl  ) 

NVPFM  =  KVRFF  ♦  i 
K  P 1  =  KOI  -  1 

IF  (J  .  GT .  KR 1 )  GO  TO  T  0 1 0 
Go  TO  j,p 

PUT  WFrTOP  Rtl  OW  wUMp 

Pop  VPFG(.|)  =  VRFG(KPi) 

MVRFM  b  kV REF  t  i 
KP 1  =  KD1  -  1 
LP?=  | -  1 
VPFG(LK-J)  =  IV 
MPFG(LW-J)  =  IPP 
HoFG(Thd)  =  (1 
JM(IRP)  s  IV 
KTKRAStTV)  =  IPP 

Changf  POw  Counts 

P&P  00  PSp  TI  *  LL  *  KK 
ITC  =  IA  (  II  ) 

IF  <HpEO(IIr)  ,GFt  p )  GO  t O  9so 
HPFOUIR)  =  HREG(TTP)  ♦  1 
9FP  COATtNUF 

IF  (J  .GT.  K  p 1 )  GO  TO  1 01 0 
GO  TO  J?p 

1000  IF  (J  .OF.  KP 1 )  GO  TO  lOin 
J  3  J  ♦  i 
Gn  To  3?o 

1010  IF  (NV/HFV  .GT.  p)  GO  TO  3i  0 

GEt  mFoTT  CqUmTS 

10?P  IF  ( KR 1  ,F0.  0)  GO  TO  IIVp 

no  1 1  no  'j  *  l Rl  .kpi 
IV  =  VnrG(J) 
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LL  *  L«(TV> 

KK  «  LA  (TV*1 )  -  1 
IMCNT  *  f 
pn  K,*,o  I  s  LL*kk 
TP  e  Ta(T) 

IF  <HHf«;(T.R)  .Gf,  n>  G n  t°  10F>0 
I mckT  S  IMCNT  -  (WPFGdR)  *1) 
yoqn  roMTNiiF 

MqFG(J)  S  IMCNT 
11AA  CONTINUf 

SORT  COLUMNS  tNTO  MFRtT  ORUtP 
US T NR  «;hELL  SnHT 

TSr  *  l 

11AA  IF  (KPl  ,LT.  2* ISP)  GO  TO  1 1  OP 
ISO  *  ?*ISU 

on  TO  nop 
l l ap  ipr  r  icr  -  l 

ENn  OF  TNTTlAI 17AI ION 

llni  if  dsn  ,LE.  o)  on  to  i  1 0 7 

ISK  =  x 

no?  hj  *  iCK 

ISL  *  UK  ♦  ISO 
IPY  s  mpFGUSL) 

I«?7  e  vpfG  ( I SL  ) 

linn  If  (I«;y  ,Lt.  mrPP(TcJ>>  GU  TO  110* 
jjnc  jcl  '  T  c  J  ♦  ISD 

mpfg ( ib|  )  e  I SY 
VPFG  < lb|  )  =  TSZ 

Irk  =  UK  ♦  1 

IF  ( ( T bK  ♦  ISD)  .IP.  KPl)  nO  TU  1 1 "2 

ur  =  ( t?d  -  i>  /  ? 

Go  To  1 T  n 1 

1UA  ISL  *  UJ  *  ISD 

MPFG  (  Ib|  )  =  PREG  (  IS.)) 

VPFG  (  I  b|  )  =  VREG(TSI) 

UJ  =  Usl  "  ISO 
IF  (ISJ  ,GT.  0)  Gn  to  llOi 
Gn  TO  ,ir5 
Hot  CokTIK'UF 

r  ENn  of  SORT  KnUTlNE 

r  PUT  n|IT  RFLOw  bump  FT*S  (PAht  OF  U) 

c 

IIP*  NPI.CK  =  A 
NRFLPW  s  0 
NFI AST  -  NEMAX 
NTI AST  -  NTMAX 
t_r  (KT|  AM  ♦  1  )  =  WR  AST  ♦  y 
r 

I  O  a  I  K-J 

TP  (LMj  .GE.  L«4)  LP  s  ER4 
IF  (LR  #rT*  KR4)  ^0  TO  20S* 

JK  *  KH4  ♦  1 
Dn  ?rnn  «j  J=LP  f  KP4 
JK  S  JK  -  I 
IV  s  VHrO(JK) 
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n  o  n 


I  a  MHEf,  (JK) 

NPF| Ow  -  NBELOW  ♦  t 
if  (IV  .FT,  NROW)  fin  Tn  i2n0 
NFI.Ck  a  KSLCK  ♦  , 
l?nn  LL  »  LA(lv> 

KK  a  I  A  (  T  V ♦ 1 )  -1 
If  (KK  ,  fi  T  •  LL)  fin  to  ,300 
I?fin  IF  (AHs(A(LL)  -  1.)  .LF.  Z.T0L7t)  fi0  Tn  *000 

r 

l3no  NiiFtA  z  MJETA  ♦  1 
nn  i*0a  J  s  ll*kk 

If  «  I  A  Cv1 ) 

IF  (Ip  .FQ.  I)  FO  Tn  1190 
IF (NEl  AFT)  =  IP 
F  (AFl.  ASt)  *  A  (  J > 

NFI.AST  *  NELAST  -  1 

Ni)FL E m  s  NUELEM  ♦  ! 

fin  to  1 4no 

lJ9n  EP  r  A(J) 
l40n  CnKTiNUr 

IF(NELMFT)  =  I 
F (NFL  AST)  *  EP 
LF  (NTI  AeTl  *  NEl  Act 

NF|_A$T  -  MELAST  .  I 

NTLAFT  =  NTL AST  -  1 

Niiflfm  -  nuelem  ♦  1 

conn  CoktTmuf 

<:nFn  if(kP)  .fo.  C)  fin  Tn  3=00 
r 

C  DO  l -(I  oErOMPnSlTlON  nF  pump 

r 

on  30011  J  =  LR1.KPI 
IV  s  VkfG(J) 

C A |  L  IINDACK  (IV) 

CALL  F I o A N ( ? ) 
jnrwp  *  0 
loGPIN  -  -999999 
On  2100  I  «  l»NPnw 

If  (  amf(Y(D)  .lf.  7TnLPV >  fin  Tn  ?1  m 
If  (HpFfi(I)  .GE.n)  fiO  tO  2i00 
If  (Hpt.fi  ( I )  .LE.  IPtmIn)  fan  To  21no 
inrplN  -  mpeg ( I ) 

InrwP  *  T 
Cl  on  CnATINHF 

IF  (fwowP  .GT.  r)  fin  Tn  2lc0 
IF (K,.Fn#1 ) PRINT  nflno 
KTKHAs(TV)  =  0 
fin  Tn  3O00 
r 

C 1 =n  IMCP  B  mRFG(IROwpi  *  3 

wrttf  1  amo  u  Etas 

If  <j  ,rc.  KKi)  on  rn  ? 1 60 
nfi.FM  s  keLEP  ♦  , 

IF  (KEi  C.M)  =  IROWP 
F(NFIFI*M  a  Y(IRnWP) 

Cl  fin  no  ? 3 n 0  I  =  1  *Nr:Ow 
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If  (I  .fC.  IPOWP)  firi  To  2300 

IF(  A R<;(Y(1)>  .IE.  7tOL/E)  60  t°  ?,0C 

IF  ( HHt.fi  ( I )  .GE.  P)  GO  TO  ?Z0O 

L  FTd  FLEmENTf 

NF|.  F  M  S  KFLEM  ♦  1 

Tr(KFL^M  =  T 
F (KFLFM)  n  Y ( I ) 
r.n  To  0 

u  FT/'  FLEMtNT  C 

2?^  TF  (f  FI  ACT  )  =  I 

F  (  K  FL  AST )  c  Y  ( I ) 

nfl Act  s  nelast  -  1 

NIIFLFm  -  NUELFM  ♦  1 
23rr  fokTINUF 

jh(TRowP)  =  IV 

KTNHASITV)  =  IRowp 

NllFTA  *  MlFTA  ♦  I 

TF  ( K FI  AcT  )  =  1  R°WP 

IF  <J  .MF.  KF1)  r,o  TO  2330 

F.  (NFL  act)  c  Y  (  I°DwP) 

PP  TO  & -*4  r> 

?:n<*  E  (  n  F I  AST)  =  1  • 

NFTA  =  MF  T  A  ♦  1 
LF  (KFtA*1  )  =  NEI.FM  4  1 

234 *  NUFLFM  s  NUElEM  4  1 

LF  ( N  T I  ACT )  =  NE|  ACT 

NF|  AST  -  NELAST  -  ) 

NTLAST  -  NTLAST  -  1 

UPDATE  ROw  COUNTS 

r 

Do  ?3«S0  T  =  I  f  NPOW 

if  (  AHC(Y(I))  .LF.  7T oLZt )  Go  Tn  ?3cn 
IF  ( Hut  0(1)  .GE.  0)  GO  TO  ?3«5n 
HRFT-(n  *  HREG(T)  -  I NrR 
If  (wwtr.(I)  .GE.  ?)  hRfG(I>  *  -i 
?3Gr  Co^tTNuf 

HDFP ( T wn*P)  =  0 
Jnnn  COKTTNUr 

r 

r  mepof  t  akiO  u  ETAS 

r 

3Snn  N|,FTA  *  KETA 

NFTA  s  Ml.  FT  A  ♦  NlirTA 

ML  FL  Fm  =  NELFM 

NPl  PM  s  KLFLEM  ♦  MUrt.FM 

jp  (MlJti  Fm  «FU.  o)  oO  TO  Jcbn 

CALL  ShfTF 

r  INSFPT  SLACKS  FOP  DELfTEh  COLUMNS 

r 

3SS^  00  36no  T  =  1 tNROw 

Tf  (Jh(t)  .NE.  * )  Do  To  36*0 
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*■>  n 


JH(T)  *  T 
lorwP  =  T 
CALL  HNraCK(I) 

C 41. L  FltJflNH) 

CALL  vkkFT* 

Sboo  CONTTNUF 

r 

r  UPDatf  X 

c 

call  shtftp n*3) 
call  ftpanid 
CALL  shTFtr(3*2) 


c 


r 


PRTMT  ctAtISTtCS 

NOFD  a  MFLEM  -  MFTA 

nstr  =  *.'ROw  -  nsi  fk 

TF(K3.NF.1>RETUPN 

WRITE  (o.cOO>NBNPN7,A'STD*NApOVt ,NREI  Ow,NLtLEM,NlETA *NUELEM,NUETA, 
lHnFD*MtTA 

SOA  FOR PAT (iPHO INVERT  ST  AT  T  ST  I rS/ 1 m  *Ia,14H  NONZ  in  BASIS/1H  ,14, 
l?flp  STRUCTURAL  CD|  UMNS  in  r  AS  1  !>/ 1 H  ,T4,1>*H  VECTORS  above  BUMP/Ih 
?I4 « 1 9h  wFCTOpS  RFl  OW  Ri|MP/iH  |  1*15, 5h  NUn7,I5,5h  FTAS/3H  m»*I5* 
35H  NPMZ,T5iSP  Etas/oh  tOTAi Sj , 15* IaH  OFF  DIAG  N0N7*I5,5H  FTAS  ) 

RFTURN 

EMC 


» 
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SUPBOMITKF  SHFT F 
r 

rn v^on/uCRKI/B (43*) , x ( 4 30 ) ,Y (4  30 ) ,vTFMP(*30) *A (37n0) *E  (57no) » 

1  t/l  (3700)  , IE <570")  .LA  (1302)  .LE(<!00?t  *  I  ("Mam  ( 1  302 *?)  ,MNBAS(l  302)  t 

2  jt-(4jn>  fIST7pE(430>  *N«ME(pO)  *NtFMo(2S)  tCMIN*COND,fcRMAx» IFFE/ « 

3  IK'VFrto,lbBJtlPnWP,TTrH,lTCHA*ITC»>'T,TTKFR0,lVlN,TV0UT«JCOLP,KINPt 

4  XSTi  r>ROW,Ncni  t  NfLEm  t^trA  *Mi-ELFu  *M  FTA*NGELEM*MiETA»NUFLEMt 

5  MlETAt«IJMlNF,K1 

rnvyON/nLOCK/  Zt0|  7F*ZTOLH\/*7TCO<5T,Nj)“AX*NTMAXtNEHAXf  QROfQMAfQBAt 
1  CFI»iJFf*0BL*QPL*0,4T»OA*  (Jn  »  Or  t  OE  «^F  *oP*(JH*OI  *  OL  *  OH  *QN  *U0  *  (JR  »QU  *  OZ 

nt* FUSION  BUD°(l4)  ,nn  (7fe)  *pu  (3f,)  *UbSP  (3b>  *URPlPE(7b) 
r 

r  shift  tf  *nd  r  Of  u  ei EPfkts 

r 

MF  x  NfcM/IX  -  NUPl  FM  ♦  i 
TMfR  =  r 

OP  icon  T  s  NF,MF«AX 
IMCP  X  TNCR  ♦  1 

IF  (NLFLrV  ♦  INCd)  x  TE(I> 

F  f K LFI  FW  *  IXCRi  =  r(I( 
lfion  COKTImut 

r 

TOTF  =  MfMAX  -  W|  fLFM  .  NurLEM 
NF  r  MTmAX  -  NUFTfl  ♦  1 
T  NfP  s  * 

nn  ?poo  T  c  KFfNTMAX 
iMrp  =  ikcm  ♦  i 

LF(METa  ♦  INC*)  s  !F(T)  -  10lh 
£nnn  chmInuf 

LF  (NET  A*  1  )  s  NEl  FM  ♦  1 

RF7URN 

FMT 


SllopmiTTNE  GETPHT  (TtJ*v*F) 

RPTIJPN 

Ewr 


FUNCTION  FUNCT1 I  A 
IFd.fiF.?)  GC  Tn 
Fiikct I *i . 

PrTURN 

Ip  FmnCT 1*1, 

I  =  T- 1 

nn  2r  j*i *  I 
?n  FI|KCT1*FLNCT1+ (1  . 
IsT*1 
PftUPn 
F»t 


T 1 
p 


«>**  J 
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FIJM'TIOV  FUNCT2<a.Tl 
IF ( I • GF , 2 1  GC  T n  10 
FIIKCT?=n, 

RFTURm 
lo  FUM*T?co. 

1  =  1-1 

on  2q  j-i ,1 

?o  Fi|KCT?  =  Fl  NCT2*FL0eT(J>*<  ( 1  .-«>**<  T-J)  ) 
I  =  T*1 
RETURN 
Emp 
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FUNCTION  FUNCT3 ( A ,R. I > 

IF (T. fie. 1) GO  TO  1* 

FMNCT3»<»  . 

PP71IDN 
1  f>  FlINCT  3  =  ?. 

[JO  ?(,  J  =  1  .  I 

FUNrT3*Fl  NCT3+  (  M  .-A)  **  <  I-.lU  •HJNCTl  <P«  J» 
pFTURA' 

For 


FUNCTION  FUNCT4  (ft.R.T) 

FUNCT4=?. 

IF(I.LT.1)F<F'7URm 

on  ?p  J- 1 *  I  , 

?n  Fl|NrT4  =  FLNCT4*(  M  .-»)•*(!-  I>  )*MJNCt?  (P*J 
PFTUPm 
ENT 
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FACTION  FUNCT5  (Pwf  nStMPUHrH) 

IF  (fv  PiJP'-p-l )  1 0  *  ?n , 3' 
in  FllKfTs*^. 

FFti  iFn 

?  O  FllKCTSfii# 

PFT1IPN 

3  r  l  I  S  r 

U  **FPiJkrh-l 

Fl^rTs  =  ^. 

Pn  40  I-LLtLL 

4  0  Fi)NrTS  =  FLNCT5^  (  ( 1  ,-nw)  **  (NpURfh-l  -t  )  )  *  (  U  ,-DS)  **I ) 

RFTUPN 

FNT 
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